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EXPERIENCIAS Y PRACTICAS EN LOGO 


2 Cómo definir procedimientos 
dentro del editor 


A conocemos al editor del 
Logo. Esa pantalla oculta a la 
cual podemos acceder me- 
diante la orden: 


EDITA 


En él podemos obte- 
ner el listado de las órdenes 
de un procedimiento espe- 

cificándolo: 


? EDITA “Nombre de procedimiento" 


Vamos a ver cómo podemos definir los 
procedimientos directamente dentro del edi- 
tor y qué otras cosas obtenemos en él, entran- 
do de diferentes maneras. 

Nada más comenzar a trabajan y antes 
de haber accedido alguna vez al editor, si in- 
troduces la orden: 


FEDITA 


o bien de su forma abreviada: 
?ED 
sin especificar un nombre de procedimiento, 


entramos en el editor Logo, pero en éste apa- 
rece únicamente el título: 


EDITOR LOGO 


y en la primera línea accesible, el cursor. 
En esta situación podemos comenzar a 


definir nuestro procedimiento pero directa- 


mente en el editor. Bastaría con dar, en pri- 
mer lugar, la orden PARA y a continuación 
especificar el nombre que queremos dar a 
nuestro procedimiento. Una vez realizado 
esto, podemos escribir las órdenes que lo van 
a componer. Primero nos situamos en la línea 
siguiente de donde nos encontramos, bien 
desplazando el cursor por medio de las teclas 
que existen para ello, o bien pulsando la tecla 
RETURN que lo situará directamente al co- 
mienzo de la línea siguiente. 

A continuación comenzamos a teclear 
las órdenes. Cada vez que queramos colocar- 
nos en una línea nueva, lo podemos realizar 
pulsando de nuevo RETURN. Cuando hayamos 
terminado, tenemos que poner como última or- 
den FIN, igual que hacíamos cuando definía- 
mos procedimientos fuera del editor. 

Observa que en este caso ya no han 
aparecido ni la interrogación ni el signo >. 

Una vez que consideremos que nuestro 
procedimiento ya contiene las órdenes nece- 
sarias, salimos del editor pulsando la tecla 
adecuada. Inmediatamente después, pasamos 


a la pantalla en la que estábamos antes de ac- 


ceder al editor en el caso de los MSX, y al 
modo de pantalla texto en el caso de los PC- 
Compatibles y Spectrum. 

En ambos casos recibimos el mensaje: 


Nombre de procedimiento DEFINIDO 


o bien 
ACABAS DEFINIR Nombre de procedimiento 
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Este mensaje nos indica que todo lo que 
hemos escrito en el editor ha sido almacena- 
do en memoria formando un procedimiento. 
A partir de este momento podemos trabajar 
con el procedimiento definido de igual forma 
que hacíamos cuando lo definíamos fuera del 
editor. 

Vamos a ver cómo podemos evitarnos 
el tener que escribir, cada vez que queramos 
ver en el editor un procedimiento determina- 
do, su nombre. 

Supongamos que definimos fuera del 
editor dos procedimientos: 


?PARA A 

>AV 20 GD 90 

>REPITE 3 [AV 30 GI 120] 
>FIN 


?PARA B 

>AV 20 GD 90 

>REPITE 4 [AV 40 GD 90] 
>FIN 


Si ahora editamos uno de ellos, por 
ejemplo el A: 


ED “A 
entramos en el editor y en él aparecerá: 


PARA A 

AV 20 GD 90 

REPITE 3 [AV 30 Gl. 120] 
FIN 


A continuación salimos del editor pul- 
sando la tecla apropiada. Si ahora introdu- 
cimos: 


?ED 


sin especificar el nombre de un procedimien- 
to, volveríamos a entrar en el editor y en él 
aparecería otra vez el procedimiento A. 

Es decir, si sólo damos la orden de edi- 
tar sin especificar nombre de procedimiento 
alguno, entramos en el editor y en él aparece 
lo último que haya contenido. 

Si quisiéramos editar el procedimiento 
B, sería necesario especificarlo: 


?ED "B 


y a partir de este momento cada vez que se in- 
troduzca simplemente la orden ED, obtendría- 
mos el procedimiento B. 

Veamos ahora qué ocurre si accedemos 
al editor de otra forma: 


ED" 


Al no especificar un nombre de proce- 
dimiento pero sí las comillas, en el editor 
obtendríamos: 


PARA 
FIN 


De esta forma podemos definir un nue- 
vo procedimiento. Escribiríamos a continua- 
ción de PARA el nombre y comenzaríamos a 
teclear las órdenes. El FIN podemos, o bien 
desplazarlo hacia abajo situando el cursor so- 
bre él y pulsando la tecla RETURN, o bien 
borrarlo, sin olvidarnos de volver a escribirlo 
al finalizar, Una vez que salimos del editor, el 
procedimiento queda definido. 

Por último, podemos entrar en el editor 
de la siguiente forma: 


pero en este caso, el nombre que se especifi- 
ca no existe, es decir, no se ha definido nin- 
gún procedimiento con ese nombre. 

Supongamos'que ordenamos la edición 
del procedimiento C, el cual no ha sido ante- 
riormente definido: 


?ED "C 
en el editor aparecería: 


PARA C 
FIN 


Automáticamente obtenemos el proce- 
dimiento C, que al no estar definido aparece 
vacío. Al igual que en los casos anteriores, po- 
demos proceder a definirlo aquí. 

El Logo nos permite también poder ob- 
tener en el editor más de un procedimiento a 
la vez. Para ello basta con especificar los nom- 
bres de los procedimientos que queremos ob- 
tener de la siguiente forma: 


?ED [Nombre procedimiento 1 Nombre 
procedimiento 2...] 


Todos los procedimientos que se espe- 
cifican aparecen en el editor en el mismo or- 
den que se ha indicado y con una separación 
de una línea. 

Esto puede ser de gran utilidad a la 
hora de estar trabajando con procedimientos 
que forman parte de un mismo proceso. 

Al igual que podemos editar más de un 
procedimiento a la vez, podemos definir más 
de un procedimiento dentro del editor. Para 
ello lo único que hay que hacer es escribir un 
PARA y un FIN para cada uno de ellos. 

El siguiente procedimiento nos permite 
dibujar en la pantalla cubos con las dimensio- 
nes que queramos. Para ello utilizamos la va- 
riable L, que es la que va a determinar la lon- 
gitud de las aristas. En primer lugar, centra- 
mos el cubo, situando a la Tortuga a una dis- 
tancia del centro, tanto en x como en y, igual 
a la mitad del lado: 


Fig. 1. 
Estas son las órdenes que lo realizan: 


PARA CUBO :L 

>SL 

>BP 

>PONX —L / 2 

>PONY —:L / 2 

>BL 

>REPITE 4 [AV :L GD 90] 
>AV :L 

>GD 45 
>AVL-(L/3) 

>GD 45 

>REPITE 4 [AV :L GD 90] 
>AV :L 

>GD 90 

>AV :L 

>CD 45 
>AV:L-(:L/3) 


>GD 135 

>AV :L 

>GD 45 

>AV :L-(:L/3) 
>SL 

>PONX -:L / 2 
>PONY -:L / 2 
>BL 

>AV iL-(:1L/3) 
>PFIN 


Observa que la profundidad del cubo 
no es L, sino L - 1/3 L, para conseguir así di- 
bujar un cubo proporcionado, 

Si ahora lo ejecutamos: 


?CUBO 40 
Obtenemos: 


Fig. 2. 


Si cambias la segunda orden del proce- 
dimiento (BP) por la orden CENTRO y a con- 
tinuación lo ejecutamos dando los siguientes 
valores a la variable: 


? CUBO 20 
? CUBO 40 
? CUBO 60 
? CUBO 80 
? CUBO 100 


Obtenemos el siguiente dibujo: 


Fig. 3. 
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Ahora introducimos una segunda varia- Por último, hacemos variable la profun- 
ble al procedimiento para poder dibujar los  didad del cubo: 
cubos con la inclinación que queramos: 


Fig. 4. 


?PARAÁA CUBO :L :P 


?PA RA CUBO :L :G >5SL 
>5SL >BP 
>BP >PONX -—:L / 2 
>PONX -:L / 2 >PONY -—:L / 2 
>PONY -—:L / 2 >BL 
>BL >REPITE 4 [AV :L GD 90] 
>CD :G >AV :L 
>REPITE 4 [AV :L GD 90] >GD 45 
>AV :L > AV :L - (:L / :P) 
>GD 45 >GD 45 
>AV :L-(:L/3) >REPITE 4 [AV :L GD 90] 
>CD 45 >AV :L 
>REPITE 4 [AV :L GD 90] >GD 90 
>AV :L >AV :L 
>GD 90 >GD 45 
>AV :L >AV :L - (:L /:P) 
>CD 45 >GD 135 
>AV :L-(:L/3) >AV :L 
>GD 135 >GD 45 
>AV :L >AV :L - (:L / :P) 
>GD 45 >5SL 
>AV :L-(:L/3) >PONX —L / 2 
>5SL >PONY -—:L / 2 
>PONX -—:L / 2 >BL 
>PONY -—:L / 2 >AV :L - (:L / :P) 
>BL >FIN ' 
A Id Al ejecutarlo obtendríamos: 
> 
Si ejecutamos el procedimiento dando oo 
los siguientes valores a las variables: 
?CUBO 40 45 
Obtenemos el cubo dibujado de la si- 
guiente forma: * 
Fig. 5. 
?CUBO 90 1.5 


Fig. 6. 


Funciones matemáticas 


A continuación exponemos una serie de 
funciones matemáticas generales, aunque no 
todas las versiones de LOGO dispongan de to- 
das ellas. 


-ENTERO n 


Devuelve la parte entera de un número 
n truncando la parte decimal, es decir, sin re- 
dondear el número. 


?ESCRIBE ENTERO 25.1 


25 
?ESCRIBE ENTERO 25.9 
25 
?ESCRIBE ENTERO -3.6 


3 
-REDONDEA n 


Devuelve el número n redondeado al 
entero más próximo. 


?ESCRIBE REDONDEA 5.4 


5 

?ESCRIBE REDONDEA 5.6 
6 

?ESCRIBE REDONDEA -3.2 


—ABSn 


Devuelve el valor absoluto de un nú- 
mero. 


?ESCRIBE ABS -30 
30 

?ESCRIBE ABS 30 
30 

?PONCL ABS CL -1 


?AVANZA ABS COORX-COORY 

La Tortuga avanzará la diferencia en 
valor absoluto de los valores que posean 
COORX y COORY. 


-RESTO a b 


r 
CAR 


Devuelve el resto de la división de a 
por b. 


?ESCRIBE RESTO 20 10 
0 


?ESCRIBE RESTO 57 8 

1 

?ESCRIBE RESTO 40 0 
IMPOSIBLE DIVIDIR POR CERO 


-POTENCIA a b 


Devuelve el número a elevado al núme- 
ro b. 

Se deben tener en cuenta las reglas ma- 
temáticas: ex 


— Si a es cero, b debe ser un número 
positivo. 

— Si a es negativo, b debe ser un nú- 
mero entero. 


?ESCRIBE POTENCIA 0 5 


0 

?ESCRIBE POTENCIA -5 -1 

-0.2 

?ESCRIBE POTENCIA -5 -1.5 
POTENCIA NO ACEPTA [-5 -1.5] 
COMO DATO 

?ESCRIBE POTENCIA -4 7 

-16384 

?ESCRIBE POTENCIA 0 -3 

POTENCIA NO ACEPTA [0 -3] COMO 
DATO 


Teclea este pequeño ejemplo en el que 
utilizamos la función POTENCIA, 


?BP 

?SL 

?PONY 50 

?BL 

?REPITE 20 [PONCL CL +1 AV POTEN- 
CIA 3 CL GD 90] 


-RAIZCUADRADA n o RC N 


Devuelve la raíz cuadrada del número 


?ESCRIBE RAIZCUADRADA 25 
5 

?ESCRIBE RC 100 

10 
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Si n es negativo, el LOGO muestra -el 
mensaje: 

RAIZCUADRADA NO ACEPTA n 
COMO DATO 


-EXP n 


Función exponencial. 

Devuelve el número e elevado a la po- 
tencia n. El número e es una constante mate- 
mática, 


ESCRIBE EXP -1 
0.3678794 
?ESCRIBE EXP 10 
22026.7 
?ESCRIBE EXP 0 
1 

7ESCRIBE EXP 1 
2.118282 


-LN n 


El logaritmo neperiano es la función in- 
versa de la exponencial. 

Devuelve el logaritmo en base e de n. 
El número n debe ser positivo; en caso de que 
sea igual o menor que cero, el LOGO mostra- 
rá el mensaje: 


LOGO NO ACEPTA n COMO DATO 
?ESCRIBE LN 1 

0 

?ESCRIBE LN -S 

LN NO ACEPTA -3 COMO DATO 
?ESCRIBE LN 0 

LN NO ACEPTA 0 COMO DATO 


-PI 


Devuelve la constante maternática PI. 


. La constánte PI se utiliza para pasar los 
grados a radianes, y viceversa. 


PI equivale a 180 grados. 
2'Pl equivale a 360 grados 
?ESCRIBE PI 

3.141592 

?ESCRIBE (20*PD)/180 
0,3490659 


Esta última operación nos devuelve los 
radianes que corresponden a un ángulo de 20 
grados. 


10 


Y ahora algunos ejemplos con procedi- 
mientos de dos entradas. 


— Semáforo de discos 


Primero definimos un procedimiento 
para dibujar el cuerpo del semáforo, con los 
discos sin colorear. 


?PARA SEMA 

>SL 

>PONX -16 

>BL PONCL 3 

>REPITE 2 [AV 60 GD 90 AV 32 GD 90] 
>GD 90 AV 19 

>REPITE 2 [CD 90 AV 80 GD 90 AV 6] 
>SL PONPOS [12 17] 

>PONRUMBO 180 

>BL 

>REPITE 36 [AV 2 GD 10] 

>SL PONPOS [12 44] 

>BL 

>REPITE 36 [AV 2 GD 10] 

>FIN 


Luego definimos un procedimiento para 
colorear los discos, los colores vienen dados 
por las dos variables de entrada de este pro- 
cedimiento. 


:A para el color del disco inferior 
:B para el color del disco superior 


?PARA COLOR :A :B 
>SL 

>PONPOS [5 16] 
>BL 

>PONCL :A 
>RELLENA 
>SL 

>PONY 43 

>BL 

>PONCL :B 
>RELLENA 
>FIN 


Y, por último, definimos un procedi- 
miento para inicializar la pantalla y para lla- 
mar a los dos anteriores. Este procedimiento 
también es de dos entradas, puesto que hay 
una llamada al procedimiento COLOR. 


?PARA DIBUJO :A :B 
>BP 


E) w 
ev 


>PONPALETA 0 lor de :R, el rectángulo a pintar del color de- 


>SEMA terminado por :C. 
>COLOR :A :B a 
>FIN :¡R cuadrado a pintar de l a 10 
:C color con el que rellenamos el rec- 
Si tu versión de LOGO no admite la or- tángulo 
den PONPALETA, no la teclees. 
Ejecutamos el dibujo por ejemplo: a COLOR :R :C 
ES 
?DIBUJO 1 2 >PONY 10 
>PONX -110 +:R* 20 
>BL 
>PONCL :C 
>RELLENA 
>FIN 
Con DIBUJO inicializamos la pantalla y 
unimos todos los procedimientos definidos an- 
teriormente. 
Fig. 7. ?PARA DIBUJO :R :C 
eS >BP 
o también S PM 
?DIBUJO 2 3 >PONCL 2 
' >MARCO 
— Colorear rectángulos >PONCL 1 
>RECTAN 
Definimos un procedimiento que en- >COLOR R :C 
marca diez rectángulos. >FIN 
A MARCO Para ejecutar el dibujo llamamos al pro- 
SPONPOS [-125 -80] cedimiento DIBUJO e indicamos dos valores. 
>BL ? 
>REPITE 2 [AV 160 GD 90 AV 250 CD Dd 
e Pintamos el tercer rectángulo del color 
>CENTRO que le corresponda al código 2. 
>FIN 


El procedimiento RECTAN para dibujar 
los diez rectángulos. 


?PARA RECTAN 
>SL PONX -100 
>BL 
>REPITE 10 [REPITE 2[AV 40 GD 90 AV 
20 GD 90] GD 90 AV 20 GI 90] 
>FIN 
Fig. 8. 
El procedimiento COLOR con dos en- 
tradas para seleccionar, dependiendo del va- ?DIBUJO 11 2 
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Rellenamos de color (2) el marco delos la del dibujo, teniendo en cuenta que podemos 


rectángulos. cambiar la altura y la anchura. 
Fig. 10. 
Fig. 9. 
3. Intenta realizar el dibujo siguiente: 
Resumen 

— ENTERO n 
Devuelve la parte entera de n. 
— REDONDEA n 


Devuelve el número n redondeado al 
entero más próximo. 

— ABS n 

Devuelve el valor absoluto de n. 

— RESTO a b 

Devuelve el resto de la división de a 


Fig. 11. 


4. Define un procedimiento con dos en- 


por b. 
— POTENCIA a b 
Devuelve el número a elevado a la po- 
tencia b. 
— RAIZCUADRADA noRCn 
Devuelve la raíz cuadrada del núme- 
ro n. 
— EXP n 
Devuelve la constante matemática e 
elevada a n. 
— LN n: 
* + Devuelve el logaritmo neperiano de n. 
— PI 
Devuelve el valor del número PI. 


Ejercicios 


1. Definir un procedimiento de dos en- 
tradas (:C y :H) que dibuje un triángulo rectán- 
gulo en el que uno de los catetos sea :C y la hi- 
potenusa :H, 

2. Define un procedimiento de dos en- 
tradas que nos permita dibujar una mesa como 


tradas con el que pader obtener en la pantalla 
el siguiente dibujo en cualquier punto y con 
cualquiera inclinación. 


Fig. 12. 


5. ¿Son correctas las órdenes siguien- 
tes? 


? ESCRIBE SUMA RC 16 20 

? ESCRIBE RESTO 5 2 + 7 

? ESCRIBE REDONDEA 20.7 + 90 
? EDITA CASA 

? ED "CASA:P 

?ED“AV 


Solución a los ejercicios 


1: 
Definición del procedimiento de dos 
entradas que dibuja un triángulo rectángulo. 
:C uno de los catetos 
:H la hipotenusa 


? PARA TRIANG :C :H 

> BP 

> PM 

> ¿RESO 

> GD 90 

> AVRC ((POTENCIA :H 2) - (POTEN- 
CIA :C 2)) 

> Gl135 

> CENTRO 

> FIN 


El otro cateto lo calculamos hallando la 
raíz cuadrada de la diferencia entre la hipote- 
nusa al cuadrado y el cateto al cuadrado. 

Hipotenusa al cuadrado es igual a la 
suma de los cuadrados de los catetos. 


? TRIAN 90 100 
? TRIAN 40 50 


Fig. 13. 
2: 


Procedimiento de dos entradas para di.- 
bujar una mesa de diferentes tamaños. 

:¡B para indicar la anchura de la mesa 

:H para indicar la altura de la mesa 


? PARA MESA :B :H 
> BP 

> PONCL 1 

> SL 

> PONPOS [-60 -60] 
> PONRUMBO 90 
> BL 


> AV2RE4AV2GI90 

> AV:HRE:H 

> SL 

> PONX -60 + :B 

> BL 

> GD90AV2RE4AV2GCI90 

> AV:H 

> REPITE 2[AV :H /3GI90 AV :B Gl 90] 

> SL 

> PONY COORY + 2 

> PONX COORX - 2 

> BL 

> REPITE 2[AV :H /3-4GI90 AV :B 
- 4 GI 90] se 

> FIN : 


Lo ejecutamos por ejemplo: 


? MESA 100 40 


Fig. 14. 


3: 


Primero definimos un procedimiento 
para dibujar el contorno de la pista. La anchu- 
ra de la pista la hemos fijado en 240 puntos en 
el plano principal y 160 en el plano de fondo. 


? PARA PISTA 

> BP 

> SL 

> PONPOS [-120 -50] 
> BL 

> PONPOS [-80 50] 
> PONX 80 

> PONPOS [120 -50] 
> PONX -120 

Sh 

> PONPOS [-100 -50] 
> BL 

> PONPOS [-68 50] 
> SL 

> PONPOS [100 -50] 
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> BL a va a tener. El punto de comienzo va a tener el 
> PONPOS [68 50] mismo valor en coordenada x e y. 


> REPITE 5[AV 18 RE 18 GD 90 AV 1 
GI 90] SL 

> PONPOS [110 5] 

> Gl 45 

> REPITE 42 [BL AV 20 SL RE 20 GI 45 
AV 5 GD 45] 

> SL 

> PONPOS [-98 20] 

> GI 90 

> REPITE 42 [BL AV 20 SL RE 20 GI 135 
AV 5 GD 138] 

> FIN 


Para ejecutarlo: 


? PISTA RED 
4: 


S ÚPOL [-88 -15] ? PARA DISQUETE PG 

> BL > Sl 
> 

DNA > PONX :P 

> PONPOS [-73 30] ON P 

> PONX 73 7 BL 

MA > REPITE 2 [AV 80 GD 90] 
> 

> PONPOS [0 -15] = AVISO 
>AV5CI9 

E > AV 8 GD 90 
> AV 55 GD 90 

A continuación definimos el que dibuja > AV 80 GD 90 

la red apoyada sobre-dos postes. > SL 

> AV 40 GD 90 

? PARA RED > AV 30 Gl 90 

> SL > BL 

> PONPOS [-110 5] > REPITE 36 [AV 2 GD 10] 

> BL > SL 

> REPITE 2 [AV 15 GD 90 AV 220 GD > RE 33 GD 90 

90] > AV 5Gl190 
REAL > BL 
> REPITE 5 [AV 18 RE 18 GI 90 AV 1 > REPITE 2[AV 13 REPITE 9[AV 2 GD 
GD 90] SL 20]] 
> PONX 110 > FIN 
> BL 


J 
Si ahora lo ejecutamos con los siguien- 


tes valores para las variables: 


? DISQUETE -40 0 


Fig. 15. 


El disquete aparece en el centro de la 


Definimos un procedimiento que utiliza pantalla y sin ninguna inclinación. 
dos variables; P, que va a determinar el punto Si ahora damos los valores: 
en donde queremos comenzar a dibujar el dis- 
quete y G, que determina la inclinación que ? DISQUETE 30 45 
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Obtendríamos el siguiente dibujo: 


Fig. 16. 
5: 
? ESCRIBE SUMA RC 16 20 
CORRECTO. El resultado es 24. 


? ESCRIBE RESTO 5 2 + 7 
CORRECTO. El resultado es 5, corres- 
ponde al resto de la división de 5 por 2+7. 
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ge 
? ESCRIBE REDONDEA SUMA 20.7 + 90 


CORRECTO. Redondeamos la suma de 
20.7 y 90, el resultado es 111. 


? EDITA CASA 


INCORRECTO. Falta indicar las comi- 
llas delante del nombre del procedimiento. 


? ED 'CASA:P 


CORRECTO. Se editaría el procedi- 
miento que recibe el nombre de CASA:P. Al 
no dejar espacio entre el nombre del proce- 
dimiento y la variable, identifica el nombre 
como CASA:P y no identifica la variable. 


?ED'“AV 


INCORRECTO. Se está utilizando el 
nombre de una primitiva. 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


OMO dijimos en el tomo an- 
terior, vamos a ver un pro- 
grama completo con movi- 
miento, con control de este 
movimiento y con muchas 
cosas más que no hemos es- 
tudiado hasta ahora y que 
aprovecharemos para ver. 
El juego en cuestión es el que aparece como 
programa 1 y le hemos llamado “El gusano 
loco”. 


Fig. 1. Estas son las figuras que tienen los personajes de este pro- 
grama. Intenta mejorarlas con ayuda de los caracteres definibles 
y de los SPRITES. 


El juego consiste en comerse el máxi- 
mo número de frutas posibles sin chocar con 
las paredes ni con nosotros mismos. Según va- 
yamos comiendo fruta nuestro tamaño irá au- 
mentanto y el juego será más difícil cada vez. 
Cuando nos hayamos comido 15 frutas pasare- 
mos a un nivel superior del juego. 

Al principio del programa se te pregun- 
tará qué nivel quieres. Tienes que responder 
con un número entre el cero y el cuatro. La 
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Fig. 2. Pantalla 1. 


elección del nivel afecta a la velocidad del gu- 
sano al moverse por la pantalla. Si elegimos un 
nivel cero, el gusano. se moverá más de prisa 
que en el nivel uno. Se recomienda empezar 
en el nivel tres o cuatro para coger práctica 
antes de jugar con el nivel cero o uno. 


Fig. 3. Pantalla 2. 
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Internamente se han diseñado cuatro 
pantallas distintas. Se pasa de una a otra cuan- 
do, dentro de una pantalla, nos hemos comido 
15 frutas. Cuando el jugador ha completado la 
cuarta fase del juego, el programa termina. 
Esto último se podría cambiar para que el jue- 
go continuase por la pantalla 1, pero a mayor 
velocidad. También se pueden diseñar más 
pantallas e incorporarlas al programa. Noso- 
tros no lo hemos hecho para no hacer el pro- 
grama excesivamente largo. 


Fig. 4. Pantalla 3. 


Se ha incluido una tabla de records que 
aparece cuando se han perdido las tres vidas 
de las que dispone el jugador o cuando han 
terminado las cuatro pantallas. 

Aparte de la dificultad que supone el 


100. REM AddsMASSIA SOSA OIR 
110 REM * JUEGO DEL GUSANO LOCO x* 
120 REM atRaaddalooo Ilo ialo look 

5 130 REM 
140 REM deRSSoMS SS ORADOR 
150 REM * PANTALLA DE PRESENTACION * 
160 REM AXeSRSARSAId SORIA IEMIOIVIOIOK 
170 REM 
180 CLS 
190 PRINT "GUSANO LOCO" 
200 PRINT " 4 
210 PRINT:PRINT:PRINT 
220 PRINT "USA LAS SIGUIETES TECLAS:" 
230 PRINT:PRINT 
240 PRINT "O - IZQUIERDA” 
250 PRINT'"P - DERECHA” 
260 PRINT "Q - ARRIBA" 
270 PRINT "A - ABAJO" 
280 PRINT:PRINT 
290 INPUT "QUE NIVEL QUIERES (0-4) "¡NN 
300 IF NN<O OR NN>4 THEN GOTO 290 


juego en sí, hay otra que lo hace más intere- 
sante. Cuando el gusano es muy largo puede 
que se fragmente debido a la muda que todos 
los años sufren dichos animales. En tal caso, 
parte del cuerpo del gusano permanecerá en 
pantalla como parte muerta, pero de la que 
has de tener mucho cuidado, pues si te cho- 
cas con ella, perderás una vida. También se 
pierde una vida al chocar contra las paredes. 


Fig. 8. Pantalla 4, 


Por lo demás, nada más. A continuación 
aparece el programa y las modificaciones que 
hay que hacerle para que funcione en orde- 
nadores distintos del IBM. 

Se recomienda a los usuarios del IBM y 
del AMSTRAD que ejecuten este programa en 
el modo de 40 columnas por línea. 


310 
320 
330 
340 
350 


360. 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


LET NN=25xXNN 
REM 
REM sa III jojor 
REM * INICIALIZACION DEL PROGRAMA x* 
REM ASMA alo 
REM 
CLS 
PRINT "ESPERA UN MOMENTO” 
DIM A$(10):DIM S(10):DIM F$(4) 
FOR I=1 TO 10 
LET A$(1)="S. Cultural” 
LET S(I)=100 
NEXT I 
LET NV=1:LET VY=3 


DIM A(40,23) 


LET F$(1)="8" 


LET F$(2)="%" 
LET F3(3)="$" 
LET F3(4)="=" 
REM 


REM ASS idolo 
REM * PROGRAMA GENERAL x* 
REM ASNO OOO 
REM 
FOR I=1 TO 40 

FOR J=1 TO 23 

LET A(1,J)=0 

NEXT J 
NEXT 1 1 
LO=0 
CLS 
LET X=10:LET Y=10 
LET X1=10:LET Y1=10 
LET X3=10:LET Y3=10 
GOSUB 710 
ON NV GOSUB 900,960, 1100, 1360 
GOSUB 1720 
GOSUB 2040 
FOR J=1' TO NN:NEXT J 
GOTO 670 
REM 
REM FAMOSO OOOO ld all llok 
REM * DIBUJO DE LOS LIMITES DE LA PANTALLA x* 
IN IIS 
REM 
FOR I=1 TO 40 

PRINT "x"; 

LET A(I,1)=1 
NEXT I 
FOR I=2 TO 22 

PRINT "x";TAB(40);"x*" 


LET A(1,1)=1 
LET A(40, I)=1 

NEXT I 

FOR I=1 TO 40 
PRINT "x"; 
LET A(1,23)=1 

NEXT I 

RETURN 

REM 


REM odo ldOIOIooloK 


REM * PANTALLA No. 1 * 
REM ARIAS Old IooIaiololoK 


REM 
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950 RETURN 

960 REM 

970 REM AMS lololojokok 
980 REM * PANTALLA No. 2 *x 
990 REM AMS SOS IO OO JSlOjOJOOKOK 
1000 REM 

1010 FOR 1=5 TO 19 

1020 LOCATE 1,8 

1030 PRINT "x" 

1040 LET A(8, I)=1 

1050 LOCATE 1,33 

1060 PRINT "x" 

1070 LET A(33,1)=1 

1080 NEXT I 

1090 RETURN 

1100 REM 

1110 REM Axa dojoloiolodiolololojok 
1120 REM * PANTALLA No. 3 * 
1130 REM A+MSSSSSIS OS SlSOIOjOlO jojo 
1140 REM 

1150 FOR I=8 TO 33 

1160 LOCATE 5,I 

1170 PRINT "x” 

1180 LET A(I,5)=1 

1190 LOCATE 19, I 

1200 PRINT "x"” 

1210 LET A(I,19)=1 

1220 NEXT 1 

1230 FOR I=6 TO 18 

1240 LOCATE 1,8 

1250 PRINT "x";TAB(33);"x" 
1260 LET A(8, 1)=1 

1270 LET A(33,1)=1 . 
1280 NEXT I 

1290 FOR I=11 TO 13 

1300 LOCATE 1,8 

1310 PRINT * ";TAB(33);" " 
1320 LET A(8,1)=0 

1330 LET A(33,1I)=0 

1340 NEXT, I 

1350 RETURN 

13680 REM 

1370 REM AMS lOdlojojolodok ak 
13830 REM * PANTALLA No. 4 * 


1390 REM AMSSORMOO SIS lSlojolojolojok 


1400 REM 
1410 GOSUB*1100 

1420 FOR I=10 TO 14 

1430 LOCATE 1,19 

1440 PRINT "oK" 

1450 FOR J=19 TO 24 

1460 LET A(J, 1)=1 

1470 NEXT J 

1480 NEXT I 

1490 RETURN 

1500 REM 

1510 REM dao aalooloalokok 

1520 REM * CHOQUE CONTRA LA PARED x* 

1530 REM ASS colo alolalodiolodoloiok 

1540 REM 

1550 CLS 

1560 PRINT "TE HAS CHOCADO CONTRA LA PARED. " 

1570 PRINT "LA PROXIMA VEZ HAS DE TENER MAS CUIDADO" 
1580 IF VV=1 THEN GOTO 2450 
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1590 LET VV=VYY-1 

1800 GOTO 550 

1610 REM 

1620 REM As SSA ooo lolo oiok 
1630 REM * CHOQUE CONTRA UNO MISMO x* 
1640 REM Saad aia ojojolaiajolaiojojok 
1650 REM 

1680 CLS 

1670 PRINT "TE HAS CHOCADO CONTIGO MISMO" 
1680 PRINT "QUE TE PASA. (ESTAS TONTO?" 
1690 IF VV=1 THEN GOTO 2450 

1700 LET VY=VYV-1 

1710 GOTO 550 

1720 REM 

1730 REM AddSSoRSSSR OSOS DOIOOIOOIOIOJoloJOJOK 

1740 REM * COLOCACION DE FRUTAS * 

1750 REM AMS RSS ORO IOIIoioljokJok 

1760 REM 

1770 IF RND>.1 THEN RETURN 

1780 LET V=INT(RNDx*4+1) 

1790 LET X2=INT(RND*40+1) 

1800 LET Y2=INT(RND*x23+1) 

1810 IF A(X2,Y2)<>0 THEN RETURN 

1820 LET A(X2,Y2)=V+1 

1830 LOCATE Y2,X2:PRINT F$(V) 

1840 RETURN 

1850 REM 

1860 REM AOS OOOlOIOIOjOK 
1870 REM * COMPROBACION DE CHOQUE * 
1880 REM Oli ailololaiolojok 
1890 REM 

1900 IF A(X,Y)=0 THEN RETURN 

1910 IF A(X,Y)=-1 THEN GOTO 1610 

1920 IF A(X,Y)=1 THEN GOTO 1500 

1930 LET SC=SC+15*A(X, Y) :LO=A(X, Y)*3 
1940 IF NC<>15 THEN LET NC=NC+1: RETURN 
1950 CLS:LET NC=0 

1960 PRINT "MUY BIEN. HAS TERMINADO CON LA FASE ";NV 
1970 IF NV=4 THEN GOTO 2010 

1980 PRINT "PREPARATE PARA LA SIGUIENTE" 
1990 LET NV=NV+1 

2000 GOTO 550 

2010 PRINT "TAMBIEN HAS TERMINADO CON El, JUEGO" 
2020 FOR I=1 TO 3000:NEXT I 

2030 GOTO 2450 

2040 REM 

2050 REM Aaa ollo dial ioloodoiololok 
2080 REM * MOVIMIENTO DEL GUSANO + 
2070 -REM ISO OO 
2080 REM 

2090 LET B$=INKEYS$ 

2100 IF B$<>"P" AND B$<>"0" AND B$<>"Q" AND B$<>"A" THEN LET B$=C8 
2110 LET C$=B$:LET X1=X:LET Y1=Y 

2120 IF B$="P" THEN LET X=X+1 

2130 IF B$="0" THEN LET X=X-1 

2140 IF B$="Q" THEN LET Y=Y-1 

2150 IF B$="A" THEN LET Y=Y+1 

2160 GOSUB 1860 

2170 LOCATE Y1,X1 

-2180 PRINT “o” 

2190 LOCATE Y,X 

2200 PRINT "O" 

2210 LET A(X,Y)=-1 

2220 IF LO=0 THEN GOTO 2250 
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2230 LET LO=LO-1 
2240 RETURN 
2250 LOCATE Y3,X3 
2260 PRINT “ ” 3 
2270 LET A(X3,Y3)=0 
2280.1F A(X3+1,Y3)=-1 THEN LET X3=X3+1: RETURN 
2290 IF A(X3-1,Y3)=-1 THEN LET X3=X3-1: RETURN 
2300 IF A(X3,Y3-1)=-1 THEN LET -Y3=Y3-1: RETURN 
2310 IF A(X3,Y3+1)=-1 THEN LET Y3=Y3+1:RETURN 
2320 RETURN 
2330 REM 
2340 REM AM9SSdGOONddOoloOooolaiok 
2350 REM * (OTRA PARTIDA? * 
2380 REM ddMEaaaldO dalla ldloldlolojolok 
2370 REM 
' 2380 PRINT:PRINT 
2390 PRINT "(OTRA PARTIDA? (S/N) 
2400 LET A$=INKEY$: IF A$="" THEN GOTO 2400 
2410 IF A$="S" OR A$="s" THEN LET NV=1:LET VV=3:LET SC=0:GOTO 550 
2420 IF A$="N" OR A$="n" THEN GOTO 2960 
2430 GOTO 2400 
2440 LET LO=LO--1 
2450 REM 
24680 REM AAA O OOOO 
2470 REM * TABLA DE GANADORES 
2480 REM AAA look 
2490 REM 
2500 FOR I=1 TO 1000 
2510 NEXT I 
2520 CLS:PRINT “PUNTUACIONES DE HOY" 
2530 PRINT:PRINT "A A y 
2540 FOR I=4 TO 17 
2550 LOCATE 1,1 
2560 PRINT “!";TAB(40);"!" 
2570 NEXT 1 ' 
2580. PRINT “=== A A A o > 
2590 IF SC>=S(10) THEN LET S(10)=SC:LET A$(10)=CHR$(254) 
2600 FOR I=1 TO 10 ; 
2610 FOR J=1 TO I 
2620 IF S(J)<S(I) THEN LET A=S(J):LET S(J)=S(1):LET S(I)=A:LET B$=A$(J):LE 
T AS(J)=A$(1):LET A$(I)=B$ 
2630 NEXT J 
2640 NEXT 1 
2650 FOR I=1 TO 10 
2680 IF A$(I)=CHR$(254) THEN LET PP=1 
2670 NEXT I 
2680 IF "PP=0 THEN GOTO 2700 
4 AL A o A » 
2700 FOR I=1 TO 10 
2710 LOCATE 5+1,3 
2720 PRINT A$(1);TAB(30);S(1) 
2730 NEXT 1 
2740 LOCATE 5+PP,3,1 
2750 LET A$(PP)="" 
2760 IF PP=0 THEN GOTO 2850 
2770 FOR I=1 TO 15 
2780 LET AS=INKEY$:IF A$="" THEN GOTO 2780 
2790 IF A$=CHR$(8) AND 1>1 THEN PRINT CHR$(29);".";CHR$(29);:LET I=1I-1:LET A$(PP 
)=MIDS(AS(PP), 1,1) 
2800 IF A$=" " THEN GOTO 2830 
2810 IF A$=CHR$(13) THEN LET I=15:GOTO 2840 
-2820 IF A$<"0" OR A$>”"z" THEN GOTO 2780 
2830 PRINT A$;:LET AS(PP)=AS(PP)+A$ 
2840 NEXT I 


22 


2850 LOCATE 1,1,0 

2860 LOCATE 20,1 

2870 PRINT “<<< PULSA UNA TECLA >>>" 
2880 LET A$=INKEY$: IF A$="" THEN GOTO 2880 
2890 LOCATE 20,1 

2900 GOTO 2330 

2910 REM 

2920 REM AdMoSdoOOldSlOolOlololololok 

2930 REM * FIN DEL JUEGO * 

2940 REM Adol didiokok 

2950 REM 

2960 CLS 

2970 PRINT "HASTA PRONTO" 

2980 PRINT "===zzz=n:z=z==" 

2990 FOR I=1 TO 10 

3000 PRINT 

3010 NEXT ] 

3020 END 


1950 PRINT CHR$(147):LET NC=0 

2090 GET B$ 

2170 POKE 214,Y1-1:POKE 211,X1-1 

2190 POKE 214,Y1-1:POKE 211,X-1 

2250 POKE 214,Y3-1:POKE 211,X3-1 

2400 GET A$:IF A$="" THEN GOTO 2400 

2520 PRINT CHR$(147); "PUNTUACIO- 
NES DE HOY” 

2550 POKE 214,1-1:POKE 211,0 

2960 PRINT ""; TAB(39);"" 

2110 POKE 214,4+1:POKE 211,2 

2140 POKE 214,4+PP:POKE 211,2 

27180 GET A$:IF A$=" THEN GOTO 2780 

2850 REM 

2860 POKE 214,19:POKE 211,0 

2880 GET A$:IF A$=" THEN GOTO 2880 


Fig. 6. Tabla de las máximas puntuaciones. 2960 PRINT CHR$(147) 
COMMODORE: 
180 PRINT CHR$(147) SFEGTRUAS 
370 PRINT CHR$(147) 90 LET B$=":LET C$":SC=0 
610 PRINT CHR$( 47) 390 DIM A$(10,15):DIM S(10):DIM 
1020 POKE 214,1-1:POKE 211,7 P$(4,1) 
1050 POKE 214,1-1:POKE 211,32 760 FOR I=1 TO 32 
1160 POKE 214, 4:POKE 211,11 800 FOR I=2 TO 20 
1190 POKE 214,18:POKE 211,1-1 810 PRINT ""¡;TAB(31)"" 
1240 POKE 214,1-1:POKE 211,7 850 FOR I=1 TO 32 
1300 POKE 214,1-1:POKE 211,7 870 LET A(1,21)=1 
1430 POKE 214,1-1:POKE 211,18 1010 FOR I=5 TO 17 
1550 PRINT CHR$(147) 1020 PRINT AT 1-1,5; 
1660 PRINT CHR$(47) ; 1040 LET A(6,D=1 
1770 IF RND (0)>.1 THEN RETURN 1050 PRINT AT 1-1,27; 
1780 LET V=INT(RND(0)4+1) 1070 LET A(28,D=1 
1790 LET X2=INT(RND(0)'40+1) 1150 FOR I=6 TO 28 
1800 LET Y2=INT(RND(0)'23+1) 1160 PRINT AT 41-1; 
1830 POKE 214,Y2-1:POKE 211, 1190 PRINT AT 16 1-1; 
X2-1:PRINT F$(V) 1210 LET A (1,17)=1 
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1230 FOR I=6 TO 16 > 2250 LOCATE X3,Y3 
1240 PRINT AT 1-1,5; 2550 LOCATE 1,1 

1250 PRINT “":TAB(26);"" 2710 LOCATE 3,5+I 
1260 LET A(6,D=1 2740 LOCATE 3,5+PP, 1 
1270 LET A(27,D)=1 2860 LOCATE 1,20 
1300 PRINT AT 1-1,5 2890 LOCATE 1,20 


1310 PRINT “ "; TAB(26);" ” 
1320 LET A(6,D)=0 


1330 LET A(27,D)=0 MSX: 

1420 FOR I=9 TO 13 

1430 PRINT AT 1-1,15 1020 LOCATE 8,1 

1450 FOR J=16 TO 21 1050 LOCATE 33,1 

1830 PRINT AT Y2-1,X2-1;F$(V) 1160 LOCATE 1,5 

1930 LET SC=SC+15*A(X,Y):LET 1190 LOCATE 1,19 
LO=A(X,V)*3 1240 LOCATE 8,1 

2170 PRINT AT Y1-1,X1-1; 1300 LOCATE 8,1 

2190 PRINT AT Y1-1,X-1; 1430 LOCATE 19,1 

2250 PRINT AT Y3-1,X3-1; 1770 IF RND(0)>.1 THEN RETURN 

2550 PRINT AT 1,0; 1780 LET V=INT(RND(0)'4+1) 

2560 PRINT "”¡;TAB(31); 1790 LET X2=INT(RND(0)'40+1) 

2110 PRINT AT 4+1,2; 1880 LET Y2=INT(RND(0)23+1) 

2120 PRINT A$();TAB(25)S0D) 1830 LOCATE X2,Y2 

2140 PRINT AT 4+PP,2; 2170 LOCATE X1,Y1 

2850 REM 2190 LOCATE X, Y 

2860 PRINT AT 20,0; 2250 LOCATE X3,Y3 

2890 PIRNT AT 20,0; 2550 LOCATE 1,1 


27110 LOCATE 3,5+I 
2740 LOCATE 3,5+PP,1 
AMSTRAD: 2860 LOCATE 1,20 
2890 LOCATÉ 1,20 
1020 LOCATE 8,1 


1050 LOCATE 33,1 Por la amplitud del programa se deja la 
1160 LOCATE 1,5 explicación del mismo para el siguiente tomo. 
1190 LOCATE 1,19 Como el programa, como se puede 
1240 LOCATE 8] apreciar, no es ninguna maravilla en lo que a 
1300 LOCATE 8,1 gráficos se refiere, se pide al lector que inten- 
1430 LOCATE 19, te modificar el programa para que, utilizando 
: 1880 LOCATE X2,Y2 la capacidad de cada ordenador para definir 
2170 LOCATE X1,Y1 caracteres, el gusano, la pared y las frutas 
, 2190 LOCATE X, Y sean, en realidad, lo que pretenden. 
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N el tomo anterior vimos el 3130 "PRINT ooo =-- 
programa gestor de fiche- 3140 CLOSE F+1:RETURN 
ros en su totalidad. Debido a 3170 PRINT TAB(VAL(N$(S,3))); 
la falta de espacio, no se M$(VAL(N$(S,2)); 
- dieron las modificaciones 3180 NEXT S:PRINT 
necesarias para que el pro- EN E 
«grama funcionase en orde- 3230 PRINT CHR$(147) 
nadores distintos del IBM. A 3280 GET A$ 
continuación aparecen dichas modificaciones: 3330 PRINT CHR$(147) 
3440 PRINT CHR$(147) 
. 3470 POKE 214,4:POKE 211,0 
COMMODORE: 3490 POKE 214,11:POKE 211,0 
240 PRINT CHR$(147) 35830 POKE 214,4:POKE 211,0 
330 PRINT CHR$(147) 3550 POKE 214,8:POKE 211,0 
520 PRINT CHR$(147) 3580 POKE 214,11:POKE 211,0 
590 POKE 214,19:POKE 211,0 3590 PRINT “ ".REM 10 ESPACIOS 
610 GET A$:IF A$=" THEN GOTO 610 3600 POKE 214,11:POKE 211,0 
750 PRINT CHR$( 47) 3630 POKE 214,8:POKE 211,21 
950 PRINT CHR$(147) 3680 PRINT "<CURSOR-IZO>”;"” 
1080 PRINT CHR$(147) 3690 POKE 214,4:POKE 211,0 
1300 PRINT CHR$(147) 37130 POKE 214,9:POKE 211,0 
1550 PRINT CHR$(147) 3760 POKE 214,11:POKE 211,0 
1640 OPEN 1,8,1,B$ 3770 PRINT " ".REM 10 ESPACIOS 
1810 OPEN 1,1,1,B$ 3780 POKE 214,11:POKE 211,0 
2090 PRINT CHR$(147) 3810 POKE 214,9:POKE 211,21 
2170 OPEN 1,8,0,B$ 3860 PRINT “<CURSOR-IZQ>”;"” 
2360 OPEN 1,1,0,B$ 3870 POKE 214,11:POKE 211,0 
2660 PRINT CHR$(147) 3960 PRINT CHR$(147) 
2140 POKE 214,4:POKE 211,0 4010 PRINT "<CURSOR-IZQ>”;"" 
29758 OPEN 1,4:CMD 1 4080 PRINT "<CURSOR-IZO>”/""” 
3040 NEXT V:PRINT 4090 POKE 214,11:POKE 211,0 
TAB(VAL(N$(CR,3)));:LET 4150 POKE 214,14:POKE 211,0 
CR=CR+1 4170 GET A$ 
3070 PRINT MID$(F$(Z) ,V, 1); . 4200 REM 
3100 IF N$(1,4)="-1" THEN PRINT 4230 POKE 214,Z-1:POKE 211,0 
CHR$(147):GOSUB 3150 GOTO 4240 FOR Q=1 TO 40:PRINT “”:NEXT Q 
3120 Í 4260 POKE 214,4:POKE 211,0 
3110 FOR R=1 TO VAL(N$(1,4)): 4310 POKE 214,11:POKE 211,0 
PRINT:NEXT R 4370 POKE 214,Z-1:POKE 211,0 
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4380 FOR Q=1 TO 40:PRINT “”:NEXT'Q 

4400 POKE 214,4:POKE 211,0 

4440 POKE 214,19:POKE 211,0 

4460 GET A $ 

4510 POKE 214,Z-1:POKE 211,0 

4520 FOR Q=1 TO 40:PRINT “”':NEXT Q 

4540 POKE 214,4:POKE 211,0 

4580 POKE 214,11:POKE 211,0 

4610 PRINT CHR$(147) 

4660 PRINT CHR$(147) 

4740 POKE 214, Y:POKE 211,X 

4780 POKE 214,Y:POKE 211,X 

4800 POKE 214, Y:POKE 211,X 

4810 GET A$ 

4830 IF A$=CHR$(20) AND LO>0 THEN 
LET LO=L0-1:LET 
D$=LEFTS$(D$,LO):LET X=X-1:PO- 
KE 214, Y:POKE 211,X:PRINT 
“-".POKE 214, Y:POKE 211,X:GOTO 
4810 

4890 POKE 214, Y:POKE 211,X 

4930 POKE 214,Y:POKE 211,X 

5050 POKE 214,Y:POKE 211,X 

5070 POKE 214, Y:POKE 211,X+19 

5080 PRINT CHR$(102); 

5090 GET A$ 

5140 POKE 214, Y:POKE 211,X+19 

5160 GET A$ 

5220 POKE 214,Y:POKE 211,X 

5230 FOR Q=1 TO L+3:PRINT “”¡:¡NEXT 


Q 

5280 POKE 214,Y:POKE 211,X+19 

5320 POKE 214,Y:POKE 211,X+19 

5390 POKE 214, Y:POKE 211,X+19 

5510 REM 

5530 POKE 214,Y:POKE 211,X 

5550 GET B$:IF B$<>" THEN GOTO 
5650 

5580 POKE 214,Y:POKE 211,X 


., 5590 FOR Q=1 TO L:PRINT *”¡:NEXT Q 


5600 GET B$:IF B$<>" THEN GOTO 
5650 

5650 POKE 214,Y:POKE 211,X 

5660 FOR Q=1 TO L:PRINT “”¡:NEXT Q 

5940 PRINT CHR$(147) 

6010 PRINT CHR$(1 47) 

6030 POKE 214,1:POKE 211,X 

6050 POKE 214,2:POKE 211,X 

6160 POKE 214,2Z+3:POKE 211,X 

6210 PRINT CHR$(147) 

6280 PRINT CHR$(147) 

6390 PRINT CHR$(147) 

6410. PRINT CHR$(147) 

6550 PRINT CHR$(147) 

6670 PRINT CHR$(147) 

6770 REM 


26 


6850 PRINT CHR$(147):LET Z=NF 

6940 PRINT CHR$( 47) 

7030 PRINT CHR$(147) 

7100 PRINT CHR$(147) 

7180 PRINT CHR$(147); 
"OPERACION 
TERMINADA” 

7230 PRINT CHR$(147) 

7300 PRINT CHR$(147) 

7420 POKE 214,8:POKE 211,0 

7480 POKE 214,15:POKE 211,0 

7500 POKE 214,17:POKE 211,0 

7520 POKE 214,15:POKE 211,0 

7550 POKE 214,17:POKE 211,0 

7590 PRINT CHR$(147) 

7670 PRINT CHR$(47) 

7780 PRINT CHR$(147) 

7800 OPEN 1,1,0,N$ 

7900 CLOSE +1:PRINT CHR$(147) 

8100 POKE 214,9:POKE 211,0 

8170 POKE 214,19:POKE 211,0 

8190 GET A$:IF A$="" THEN GOTO 8190 

8230 POKE 214,9:POKE 211,0 

8240 FOR Q=1 TO 80:PRINT *”::¡NEXT Q 

8250 POKE 214,19:POKE 211,0 

8260 FOR Q=1 TO 80:PRINT "”::NEXT Q 

8340 PRINT CHR$(147):LET CC=1 


SPECTRUM: 


220 DIM F$(200,100):DIM 
A$(10,20):DIM N(20):DIM 
N$(20,4,3) 

470 GOTO 490'(A=1)+650'(A=2)+ 
1050'(A=3)+1150'(A=4)+ 
145'(A=5)+1990'(A=6)+ 
2550'(A=7)+3200'(A=8) 

590 PRINT AT 19,0; 

760 LET A=VAL(A$):GOTO 
770'(A=1)+850'(A=2)+ 
890'(A=3)+980'(A=4) 

1340 LET A=VAL(A$):GOTO 
1350'(A=1)+1390'(A=2)+ 
1430'(A=3) 

1600 IF LEN(B$)>10 THEN GOTO 1590 

1640 SAVE *“M";1:B$+"1" DATA NQ 

1650 SAVE “M”:1:B$+"2* DATA M$0 

1660 SAVE “M”:1:B$+"3" DATA F$0 

1670 SAVE *“M”;1:B$+"4” DATA N$0 

1680 REM 

1690 REM 

1700 REM 

1710 REM 

1720 REM 

1730 REM 

1740 REM 

1750 REM 


1760 REM 

1770 REM 

1780 REM 

1790 REM 

1810 SAVE B$+"1"” DATA NO 

1820 SAVE B$+"2" DATA M$0 

1830 SAVE B$+"3" DATA F$0 

1840 SAVE B$+"4” DATA N$0 

1850 REM 

1860 REM 

1870 REM 

1880 REM 

1890 REM 

1900 REM 

1910 REM 

1920 REM 

1930 REM 

1940 REM 

1950 REM 

1960 REM 

1970 REM 

- 2140 IF LEN (B$)>10 THEN GOTO 2130 

2170 LOAD “M”:1:B$+"1" DATA NO 

2180 LOAD “M”;1;B$+"2"* DATA M$0 

2190 LOAD “M”:1:B$+"3" DATA F$0 

2200 LOAD *“M”:1:B$+"4' DATA N$0 

2210 FOR Q=1 TO 200 

2220 IF F$(Q)=" THEN LET TT=0-1:LET 
Q=200 

2230 NEXT Q 

2240 REM 

2250 REM 

2260 REM 

2270 REM 

2280 REM 

2290 REM 

2300 REM 

2310 REM 

2320 REM 

2330 REM 

2340 REM 

2360 LOAD B$+"1" DATA-NQ 

2370 LOAD B$+"2" DATA M$0 

2380 LOAD B$+"3" DATA F$0 

2390 LOAD B$+"4” DATA N$0 

2400 FOR Q=1 TO 200 

2410 IF F$(Q)=" THEN LET TT=Q-1:LET 
Q=200 

2420 NEXT Q 

2430 REM 

2440 REM 

2450 REM 

2460 REM 

2470 REM 

2480 REM 

2490 REM 
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2500 REM 

2510 REM 

2520 REM 

2530 REM 

2740 PRINT AT 4,0; 

3030 IF F$(Z,V)=CHR$(254) THEN LET 
CD=CD+1:IF CD=CC THEN LET 
Z1=V+1:LET V=LEN(F$(Z)) 

3060 IF F$(Z,V)=CHR$(254) THEN LET 
V=LEN(F$Z)):GOTO 3080 

3070 LPRINT F$(Z, V); 

3470 PRINT AT 4,0; 

3490 PRINT AT 11.0; 

3500 INPUT LINE “==> "A$ 

3530 PRINT AT 4,0; 

3550 PRINT AT 8,0; 

3580 PRINT AT 11,0; Y 

3590 PRINT" "REM 10 ESPACIOS 

3600 PRINT AT 11,0; 

3610 INPUT LINE "==> ":N$(Z,1) 

3630 PRINT AT 8,21; 

3680 REM 

3690 PRINT AT 4,0; 

3730 PRINT AT 9,0; 

3760 PRINT AT 11,0; 

3770 PRINT" "REM 10 ESPACIOS 

3780 PRINT AT 11,0; 

3790 INPUT LINE “== 

3810 PRINT AT 9,21; 

3860 REM 

3870 PRINT AT 11.0; 

4010 REM 

4080 REM 

4090 PRINT AT 11,0; 

4150 PRINT AT 14,0; 

4200 REM 

4230 PRINT AT Z-1,0; 

4240 FOR Q=1 TO 40:PRINT “"::NEXT Q 

4260 PRINT AT 4,0; 

4310 PRINT AT 11,0; 

4330 INPUT LINE “==> "¡N$(Z,3) 

4370 PRINT AT Z-1.0; 

4380 FOR Q=1 TO 40:PRINT “"::NEXT Q 

4400 PRINT AT 4,0; 

4440 PRINT AT 19,0; 

4510 PRINT AT Z-1,0; 

4520 FOR Q=1 TO 40:PRINT “¡NEXT Q 

4540 PRINT AT 4.0; 

4580 PRINT AT 11.0; 

4590 INPUT LINE “== 

4740 PRINT AT Y X; 

4780 PRINT AT Y X; 

4800 PRINT AT Y X; 

4830 IF A$=CHR$(8) AND LO>0 THEN 
LET LO=L0-1:LET D$=D$ ( TO 


"¡N$(Z,2) 


"N$0,4) 


TRUCOS Y RUTINAS BASICAS 


LO):LET X=X-1:PRINT AT 
Y X"- "¡AT Y X::GOTO 4810 

4890 PRINT AT YX: 

4930 PRINT AT YX; 

5050 PRINT AT YX; 

5070 PRINT AT T,X=19; 

5080 PRINT PAPER O; "” 

5140 PRINT AT Y X+19; 

5220 PRINT AT Y,X; 

58230 FOR Q=1 TO L+3:PRINT “”¡:¡NEXT 
O 

5280 PRINT AT Y X+19; 

5320 PRINT AT Y X+19; 

5390 PRINT AT Y X+19; 

5510 BEEP .2,15 

5530 PRINT AT YX; 

5580 PRINT AT Y X; 

8590 FOR Q=1 TO L:PRINT "”':NEXT Q 

5650 PRINT AT YX; 

5660 FOR Q=1 TO L:PRINT "":NEXT Q 

5750 IF F$(Z,1)<> CHR$(253) THEN 
GOTO 5810 

6030 PRINT AT 0,X: 

6050 PRINT AT 1,X: 

6160 PRINT AT 2Z+2,X; 

6400 GOTO 6490'(SW=0)+ 
6580'(SW=1)+6770(SW=2) 

6700 FOR X=1 TÓ LEN(F$(Z)):1F 
F$(Z,X)=CHR$(254) THEN LET 
CD=CD+1:IF CD=NC THEN LET 
Z1=X+1:LET X=LEN(ES(Z)) 

6710 NEXT X:FOR X=Z1 TO 
LEN(F$(Z):1F 
JHX-Z1+1)=F$(Z,X) THEN LET 
CR=CR+1:1F CR=LEN(J$) THEN 
LET X=LEN(F$(Z)) 

6810 IF F$(Z,1)<>CHR$(2583) THEN 
GOTO 6870 

6820 LET F$(Z)=F$(Z, 2 TO) 

7130 FOR X=1 TO Z:FOR R=1 TO 
LEN(F$(Z)):1F F$(Z,R)=CHR$ (254) 
THEN LET CC=CC+1:1F CC=NC 
THEN LET Zl1=R+1:LET R=L 
EN(F$(2)) 

7140 NEXT R:LET CC=0:FOR R=1 TO 
LEN(F$00)1F F$(X,R)=C 
CHR$(254) THEN LET 
CC=CC+1:IF CC=NC THEN LET 
Z2=R+1:LET R=LEN(F$00) 

7150 NEXT R:IF F$(Z,Z1 TO)<F$(X,Z2 
TO) THEN LET A$=F$(Z):LET 
F$(Z)=F$00:LET F$0O=A$ 

7420 PRINT AT 8.0; 

7450 DIM M$(N(1)+1,20) 

7480 PRINT AT 18,0; 

7500 PRINT AT 17,0; 
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7520 PRINT AT 15,0; 

7550 PRINT AT 17,0; 

7800 LOAD B$ DATA NQ 
7810 LOAD B$ DATA M$0 
7820 REM 

7830 REM 

7840 REM 

7850 REM 

7860 REM 

7870 REM 

7880 REM 

7890 REM 

7900 CLS 

8100 PRINT AT 9,0; 

8170 PRINT AT 19,0; 

8230 PRINT AT 9,0; 

8240 FOR Q=1 TO 80:PRINT “"::NEXT Q 


-8250 PRINT AT 19,0 


8260 FOR Q=1 TO 80:PRINT “”;¡:NEXT Q 

8370 IF F$(NF,1)=CHR$(253) THEN 
PRINT "ESTA FICHA ESTA 
BORRADA”:GOSUB 5440:RETURN 

8390 IF F$(Z,1)=CHR$(254) THEN LET 
CC=CC+1:PRINT:PRINT 
M$(CC);*”':GOSUB 8410 

8400 PRINT F£(NF,Z); 


MSX y AMSTRAD: 


590 LOCATE 1,20 
2740 LOCATE 1,5 

4370 LOCATE 1,5 

3490 LOCATE 1,9 

3580 LOCATE 1,12 
3600 LOCATE 1,12 
3630 LOCATE 22,9 
3690 LOCATE 1,5 

3730 LOCATE 1,10 
3760 LOCATE 1,12 
3780 LOCATE 1,12 
3810 LOCATE 22,10 
3870 LOCATE 1,12 
4090 LOCATE 1,12 
41580 LOCATE 1,15 
4230 LOCATE 1,Z 

4260 LOCATE 1,5 

4310 LOCATE 1,12 
4370 LOCATE 1,Z 
4400 LOCATE 1,5 
4440 LOCATE 1,20 
4510 LOCATE 1,Z 
4540 LOCATE 1,5 
4580 LOCATE 1,12 
4740 LOCATE X,Y 
4780 LOCATE X,Y 
4800 LOCATE X,Y 


4830 IF A$=CHR$(8) AND LO0>0 THEN 
LET LO=L0-]1:LET 
D$=LEFT$(D$,LO):LET X=X-1:LO- 
CATE X,Y:PRINT "-.".LOCATE 
X, Y:GOTO 4810 

4890 LOCATE X, Y 

4930 LOCATE X, Y 

5050 LOCATE X, Y 

5070 LOCATE X+19, Y 

5140 LOCATE X+19,Y 

5220 LOCATE X, Y 

5280 LOCATE X+19, Y 

5320 LOCATE X+19, Y 

5390 LOCATE X+19,Y 

5530 LOCATE X, Y 

5580 LOCATE X, Y 

5650 LOCATE X, Y 

6030 LOCATE X,1 

6050 LOCATE X,2 

6160 LOCATE X,2'Z+3 
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7420 LOCATE 1,9 
7480 LOCATE 1,16 
7500 LOCATE 1,18 
7520 LOCATE 1,16 
7550 LOCATE 1,18 
8100 LOCATE 1,10 
8170 LOCATE 1,20 
8230 LOCATE 1,10 
8250 LOCATE 1,20 


Aunque las modificaciones que hay que 
realizar son numerosas, merece la pena intro- 
ducirlas para ver cómo se ejecuta el progra- 
ma. j 

Debido a la gran extensión que han ocu- 
pado dichas modificaciones, se deja la expli- 
cación del programa para el próximo tomo. De 
momento podéis ir estudiando cómo funciona 
el programa general y los cambios que se han 
introducido en algunas de las rutinas. 


EL TALLER DEL HARDWARE 


Medidas de tiempo 


L ordenador personal pue- 
de emplearse de muy dife- 
rentes maneras para medir 
el tiempo transcurrido entre 
dos sucesos. Al ser una má- 
quina regida por un reloj 
muy estable, controlado ge- 
neralmente por un cristal de 
cuarzo, permite realizar medidas muy preci- 
sas asociadas al momento en que se producen. 

Los lenguajes de programación más co- 
munes incluyen sentencias para el empleo de 
la hora y la fecha dentro del programa, me- 
diante la lectura de posiciones internas de la 
máquina, que se actualizan al transcurrir un 
determinado período. La señal física que mar- 
ca el momento en que debe realizarse la ac- 
tualización del contador interno es un oscila- 
dor o un circuito relacionado con el oscilador 
principal del sistema. 

Vamos a describir algunos circuitos 
que permiten la generación de una frecuen- 
cia de referencia estable y diferentes formas 
de realizar medidas de intervalos de tiempo 
mediante ordenador personal. También se 
describirán circuitos que pueden añadirse al 
ordenador para poder efectuar mediciones 
que se salen del alcance de las posibilidades 
de la máquina. 


Osciladores 


Un circuito oscilador es aquel que ge- 
nera una señal variable periódicamente con el 
tiempo. Una forma muy sencilla de oscilador 
puede realizarse con dos transistores conec- 
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tados en amplificador con emisor común y con 
la salida de cada uno conectada a la entrada 
del transistor opuesto a través de un circuito 
de temporización RC. La carga y descarga de 
los condensadores origina que los transistores 
pasen alternativamente de saturación a corte 
según las tensiones que se presenten a sus en- 
tradas. La figura muestra el circuito y las se- 
ñales en los puntos principales. 


Oscilador con transistores. 


Fig. 1. 


La señal generada por el oscilador es 
binaria y su frecuencia viene fijada por las 
constantes de tiempo definidas por R1 y Cl se- 
gún la fórmula: 


F=22/RC 


La precisión conseguida con este mon- 
taje no es muy grande, pues depende de los 
valores de los componentes pasivos y del pun- 
to de conmutación de los transistores, por lo 
que variará con la temperatura. 

El circuito puede simplificarse utilizando 
componentes digitales como se muestra en la 
figura, en el que los transistores han sido sus- 
tituidos por puertas inversoras. Para que las 
puertas se comporten como amplificadores es 
necesario "linealizarlas” mediante la conexión 
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en paralelo con la entrada y la salida de unas 
resistencias. 


741,500 ó 74L504 
560 


SALIDA 


Fig. 2. Oscilador con puertas lógicas. 


Para hacer la frecuencia más estable e 
independiente de los parámetros se puede di- 
señar un circuito en el que el parámetro fun- 
damental sea dependiente de un elemento 
más estable como puede ser un cristal de 
cuarzo, convenientemente seleccionado. Con 
el circuito de la figura puede realizarse un os- 
cilador con la estabilidad y precisión propia 
del cristal de cuarzo. El circuito integrado que 
se utiliza incluye internamente un oscilador 
controlado por tensión, que podría, por ejem- 
plo, utilizarse para hacer una señal modulada 
en frecuencia a partir de una señal analógica, 
entrando por las entradas de CONTROL o de 
RANGO. 


7415624 


CRISTAL DE CUARZO 


13 
CONTROL 
[2] 


Fig. 3. Oscilador con cristal. 


. 
. 


Por último podemos también utilizar 
como oscilador para base de tiempos de nues- 
tras medidas el circuito ya utilizado en varios 
montajes anteriores: LM555, que tiene la limi- 
tación de frecuencia máxima de oscilación de 
1 MegaHz. 


Fig. 4. Oscilador con LM558. 


Ml Circuito de cuenta 


Una vez que disponemos de una base 
de tiempos estable y precisa, la medida de in- 
tervalos o períodos de tiempo requiere contar 
el número de veces que la señal de referen- 
cia se repite en dicho intervalo. Para ello he- 
mos de montar un circuito que realice la cuen- 
ta de la frecuencia de base o de un divisor co- 
nocido, controlado por la señal a medir y por 
el ordenador. El circuito deberá tener como 
elemento fundamental un contador. En la figu- 
ra vemos un contador con la entrada progra- 
mable y que puede ser leído por el ordena- 
dor. También puede ser puesto a cero por pro- 
grama. 


A PUERTO DE ENTRADA 


MAXIMO 


Fig. 5. Contador controlado por programa. 
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Para que desde el ordenador sepamos 
cuándo la señal a medir ha terminado, debere- 
mos poder leer un indicador de estado, que 
puede ser un biestable activado por la señal 
de entrada, o bien una de las salidas del con- 
tador, Si el período a medir es muy largo, po- 
dríamos utilizar el contador externo como 
cuenta previa y un contador interno, que pue- 
de ser todo lo grande que necesitemos, para 
la cuenta total. Para determinar el valor del 
período medido deberemos multiplicar la 
cuenta del contador interno por el valor de la 
cuenta más larga del contador externo y su- 
marle el contenido del último período antes de 
finalizar la medida. Así podemos tener mucha 
resolución y un posible intervalo de medida 
ilimitado a un coste muy reducido. El progra- 
ma, durante el período de lectura deberá es- 
tar observando el indicador de cuenta máxi- 
ma para incrementar el contador interno cada 
vez que sobrepase el límite. 


Algunos sucesos a medir pueden pre- 
sentar problemas de cómo determinar en qué 
momento se debe empezar la lectura y en qué 
momento se debe terminar. Es necesario po- 
der determinar las condiciones de disparo de 
forma clara, con circuito de filtro externo para 
separarla del resto de las señales. Por ejem- 
plo, si es un fenómeno que presenta variacio- 
nes lentas, será necesario establecer el nivel 
a partir del cual la señal se considera en es- 
tado de lectura. Un amplificador de entrada 
con circuito de histéresis, los indicados en el 
tomo de lecturas analógicas, nos ayudará a 
“limpiar” las condiciones de comienzo y final. 
Para presentar de manera evidente en qué 
momento estamos contando, se dispondrá una 
señal luminosa, con diodo LED, para indicar 
que la señal supera el nivel y que, por tanto, la 
lectura sería válida. Además, para calibrar la 
lectura, podemos hacer una comparación con 
un cronómetro manual, que después de la ca- 
libración no será necesario. 


Este es un ejemplo en que volvemos a 
ver la conveniencia de utilizar los circuitos 
electrónicos a través de programas, para ha- 
cerlos más eficaces y adaptables a nuestras 
necesidades, Los circuitos mostrados junto 
con los programas para activarlos, nos permi- 
tirán realizar muchos experimentos con medi- 
da precisa de intervalos de tiempo, para de- 
terminación de velocidades, distancias y cual- 
quier otro fenómeno físico cuya manifestación 
sea una magnitud medible como intervalo de 
tiempo. 
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Circuitos de temporización propios 
de los ordenadores 


Todos los ordenadores personales dis- 
ponen de circuitería interna que asociada a las 
sentencias de BASIC permite realizar la medi- 
da "grosera" de intervalos de tiempo. 

Cuando los tiempos a medir son del or- 
den de décimas de segundo, la resolución del 
reloj de tiempo real incluido en los ordenado- 
res como el IBM-PC, derivado del oscilador 
principal puede ser suficiente, Hay que tener 
presente el tiempo dedicado al refresco de la 
memoria dinámica y a la atención de las .in- 
terrupciones de otros dispositivos, por lo que 
no puede garantizarse con dicho reloj la res- 
puesta con resolución menor que la indicada. 
Mediante programas en BASIC puede reali- 
zarse medidas de tiempo, utilizando la senten- 
cia TIMER, que da el valor del contador de 
tiempo interno, con resolución de 54,9 milise- 
gundos y TIME$ que da la hora, minuto y se- 
gundo. La sentencia ON TIMER(M) GOSUB 
NNN origina el comienzo de la ejecución de 
una rutina cada M segundos. En realidad lo 
que hace el BASIC es utilizar una posibilidad 
del sistema accesible desde cualquier lengua- 
je. Por cada interrupción de TIMERO se produ- 
ce una entrada en la rutina apuntada por el 
vector número X'1C* y que es utilizable por el 
usuario, En esta rutina puede establecerse 
cualquier tipo de contabilización de tiempo 
con la resolución de 54,9 milisegundos o 18,2 
pulsos por segundo. 

Existe la posibilidad de realizar medi- 
da de tiempos con mayor resolución, utilizan- 
do los contadores internos del temporizador 
programable número 0. La señal de 18,2 pul- 
sos por segundo está producida por el conta- 
dor programable TIMERO que es activado por 
una señal derivada del reloj principal y que 
es de frecuencia 1,19 MHz. Mediante la pro- 
gramación del TIMERO se establece una car- 
ga inicial de 65,535 (X'FFFF”) que será decre- 
mentada por cada pulso externo y producirá 
una entrada de interrupción al llegar a cero, 
cargándose otra vez con el valor inicial y em- 
pezando de nuevo la cuenta hacia abajo. La 
lectura del contador interno puede hacerse a 
través del puerto X'40' mediante dos IN segui- 
das, pues los 16 bits del contador han de leer- 
se primero los 8 bits inferiores y luego los su- 
periores. Para que la lectura sea válida debe 
hacerse con una rutina en lenguaje de máqui- 
na, pues si se hiciera con instrucciones del in- 
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térprete de BASIC, podrían resultar valores 
correspondientes a períodos diferentes. Con 
la rutina que se muestra puede realizarse la 
lectura de dicho contador interno mediante 
rutina en lenguaje de máquina. Pueden conse- 
guirse resoluciones del orden de microsegun- 
dos, aunque es necesario tener en cuenta que 
no será posible medir dos sucesos muy próxi- 
mos con esa resolución, al ser necesario un 
tiempo para el registro del valor de los conta- 
dores. La resolución será de microsegundos 
para sucesos separados por lo menos 100 mi- 
crosegundos. 


Rutina en lenguaje de máquina para medir 
tiempos 


trica o el cierre de un circuito, puede realizar- 
se utilizando las entradas de pulsadores de la 
tarjeta del adaptador de juegos. En el segun- 
do programa de ejemplo puede verse cómo 
mediante las sentencias STRIG puede recibir- 
se control, al producirse el cierre de cualquie- 
ra de los circuitos conectados a las entradas 
de los pulsadores. Si la resolución necesaria 
en la medida de tiempos es superior a los 54,9 
milisegundos, podrá utilizarse la técnica indi- 
cada en el párrafo anterior, explorando las en- 
tradas mediante sentencias INP y marcando el 
tiempo en el que se produce el cierre del con- 
tacto. 


En el programa de ejemplo se utiliza la 


55 PUSH BP GUARDA BP 

SÉ EC MOV BR,SP APUNTA AL STACK CON BP 

BB 7E 06 MOY  DI,UBPI+6 TOMA DIRECCION DEL PARAMETRO 
ES 40 IN. AL.HO3O LEE TIMER 

BA EO MOV AH,AL 

ES 40 IN AL,HO40 

88 25 MOV [DIJAH RELLENA PARAMETRO 

47 INC DI 

388 05 MOV [DIJ,AL. Y SIGUIENTES 

87 05 MOY  [DIJ.AX 

BB 7E 09 MOV DI.CBP1+8 

1E PUSH DS 

ES 40.00 MOV  AX.H400 

BE D8 MOV DS. AX 

Al él 00 MOV  AX.TIMER LOW 

1F POF- DS 

389 05 MOV EDIJ1.AX ñ 
5D POP. BR 

cA 04 RET 4 


Para conseguir la máxima resolución es 
conveniente pasar a modo 3 el temporizador. 
Se puede realizar con la siguiente rutina en 
código de máquina: 


Rutina de CAMBIO DE MODO 


rutina en lenguaje de máquina para acceder 
a los registros internos del temporizador sin 
afectar, en lo posible, al tiempo del período 
medido. En cada llamada a la rutina de regis- 
tro del tiempo se almacena el contenido actual 


FA CLI INHIBE INTERRUFCIONES 

BO 36 MOV AL, 36H PONE VALOR DEL NUEVO MODO 

ES 43 QUT. TIMER+3 LO SACA AL 82353 

BO 00 MOV AL,O FONE A CERO EL CONTADOR 

ES 40 CUT TIMER 

Eb 40 QUT  TIMER 

FE STI ADMITE INTERRUPCIONES DE NUEVO 
CA 00 RET 0 


Para medir intervalos entre sucesos ex- 
ternos, accesibles a través de una señal eléc- 
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del contador en la dirección de las variables 
pasadas como parámetros. 


Programa de medida de tiempos para IBM-PC 


REM MEDIDA DE TIEMPOS CON EL TIMER INTERNO 
REM LECTURA DE TIMER Y DE LA POSICION X*46C” 
REM SE MANTIENE TIMER EN MODO 2. IBM-PC 
DEFINT A-Z - 

DIM A(100),B1(100) 

DEF SEG=%H1700: T=0 

DATA LAST. YUHOSB., YHEC, YHOB, «H7E, HOS, UHEA, $:H40 
DATA YHIA, LHEO, *HE4, £H90, H88, £H25, 1H47, H88 
DATA HOS. 2 H8B., :H7E, HO8, Y H1E. HRS, 2H40. H00 


100 DATA SHSE, £HD8, LHA1, 2H6C, £H00, LHIF, LH89, LHOS 
110 DATA KHSD, YHCA, LHO4, LHOO, £HOO, LHOO, LHOO 

120 FOR 1=0 TO 35: READ Y 2 POKE(1I),V 2 NEXT 1 
130 FOR I=1 TO 20: CALL T(At1),B41)):2 NEXT 1 

140 CLS:PRINT "PULSOS — TIMER BAJO” 

150 FOR I=1 10 20 

160 PRINT A(I)3" "¡HEXS(B(1)) 

170 NEXT 1 


En el programa de ejemplo se utiliza la 
sentencia TIMER para la medida del intervalo 
entre dos sucesos definidos por las entradas 
de los pulsadores del adaptador de juegos. 


ploración del teclado, para realizar la medida 
de tiempos con resolución de 20 milisegundos, 
pues la INT se produce con una frecuencia de 
50 Hz. Se muestra un ejemplo de programa 


Programa de MEDIDA DE TIEMPOS con STRIG para IBMPC 


10 REM MEDIDA DE TIEMPOS con STHR1G 

20 REM PROGRAMA DE MEDIDA DE INTERVALOS DE TIEMFO 

30 REM POR LECTURA DE LAS ENTRADAS DE PULSADORES 

20 REN A TRAVES DE LA TARJETA DE ADAFTADOR DE JUEGOS 
501 HEM IBM-PC 

60 ON STRIG(0) GOSUB 130 

70 ON STRIG14) GOSUB 220 

80 STRIG(O) ON: STRIG(4) ON 


790 A=0: E$="ERROR EN SECUENCIA DE PULSOS” 
100 FOR Il=1 TO 10000:* Programa principal 
110 IF A=2 THEN END 

120 NEXT 1 

130 1F A=0 THEN PRINT "TIEMPO DE ESPERA TERMINADO" 
140 END 

150 REM COMIENZO DE LECTURA DE INTERVALO 

160 IF A<>0 THEN RETURN 

170 T1=TIMER 

180 PRINT "COMIENZO LECTURA” 

190 A=1 

200 RETURN 

210 REM FIN DE LECTURA DE INTERVALO 

220 STRIG(4) DFF 

230 IF A=1 THEN A=2 ELSE PRINT E$:STRIG(4) ON: RETURN 
240 T2=TIMER 

250 A=2 

260 PRINT "FIN DE LECTURA” 

270 TIEMPO=T2-T1 

280 PRINT "TIEMPO TOTAL="3 TIEMPO: " SEGUNDOS” 
290 RETURM 


En el SPECTRUM existe también la po- 
sibilidad de utilizar la temporización interna 
producida por la ULA y empleada para la ex- 


Programa CRONOMETRO para Spectrum 


que utiliza los valores internos de los contado- 
res para efectuar medidas de tiempo. 


10 
20 
23 
30 


REM CRONOMETRO SPECTRUM 
PRINT AT 10,10; "PULSE UNA TECLA PARA EMPEZAR" 
FAUSE: CELS 


POKE 23672,0: POKE 23673.,0: POKE 23674,0 


40 PRINT Hi: "PULSE O PARA PARAR” 

50 PRINT AT 10,10: (65536) X(FEEK 23674)+2355%* 
(PEEK 23673) +PEEK 23672)/50 

60 IF INKEY="0"” THEN STOP 
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EL TALLER DEL HARDWARE 


Puede utilizarse la interrupción de 
tiempo para activar acciones en momentos 
programados, sin necesidad de esperar las 
cuentas de los contadores internos. Pará ello 
es necesario cambiar el modo de funciona- 
miento de las interrupciones a modo 2, con lo 
que se utiliza el registro interno 1 para obte- 
ner la dirección de la rutina a la que deberá 
pasarse el control al producirse la señal. La di- 
rección se obtiene del valor de 1 (como parte 
alta de la dirección) multiplicado por 256, su- 
mándole el valor leído del bus al producirse 
la interrupción. Esta dirección es en realidad 
el lugar de donde se extraerá la dirección de 
la rutina. Para usarlo se cargará en una zona 
de memoria reservada la rutina de tratamien- 
to, en una palabra de 16 bits la dirección de 
la rutina y en el registro 1 (mediante un corto 
programa en lenguaje de máquina) la direc- 
ción de dicha palabra. 


Una posibilidad más avanzada es la de 
utilizar un circuito de temporizador programa- 
ble como los que ya posee el IBM-PC. Este cir- 
cuito posee temporizadores que pueden pro- 
gramarse para realizar muy diferentes funcio- 
nes. En el circuito que se muestra puede uti- 
lizarse para: medir número de ocurrencias de 
pulso, tiempo basado en un reloj de referen- 
cia entre dos pulsos y producir señales de fre- 
cuencia o duración programables. 


Al SPECTRUM también podría conec- 
társele una tarjeta con el mismo circuito 8353 
o el Z80-CTC, direccionándolo de la forma 
acostumbrada. 


Temporizador 8253 


8253 


Fig. 6. Circuito 8253. 


El circuito 8253 posee tres temporizado- 
res programables. Cada uno de ellos tiene dos 
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entradas y una salida accesibles desde el ex- 
terior. De las entradas una es el reloj que fija 
el período de cuenta, siendo la otra entrada 
un control físico sobre el período de cuenta. 
La salida se activa según haya sido programa- 
do el temporizador, por ejemplo, para produ- 
cir un pulso de salida cada vez que se hayan 
producido un determinado número de pulsos 
en la entrada. El contador interno es de 16 bits 
y puede programarse su valor inicial. 


Dispone de seis modos de funciona- 
miento: 


— Modo 0: Interrupción al final de la 
cuenta. Al inicializarse, la salida tomará valor 
bajo. Al alcanzarse el final de la cuenta, la sa- 
lida tomará valor alto y lo mantendrá hasta que 
vuelva a recargarse de nuevo. Es un funciona- 
miento monoestable programado, de una sola 
vez y con interrupción. 

— Modo 1: Un solo pulso. Al cargarse el 
Valor de cuenta la salida toma valor alto. Al 
producirse un pulso de activación en la entra- 
da, la salida toma valor bajo, que se manten- 
drá durante el período de cuenta. 

— Modo 2: Divisor de frecuencia pro- 
gramable. La salida será una señal de frecuen- 
cia igual a la del reloj de entrada dividida por 
el valor de la cuenta programada. El contador 
interno se carga a su valor programado, cada 
vez que alcanza valor cero. 

— Modo 3: Generador de señal cuadra- 
da. Es muy similar al modo 2, con la diferen- 
cia de que el contador cuenta cada pulso de 
entrada como 2. 

— Modo 4: Generador de pulso activa- 
do por programa. La salida presentará un pul- 
so de nivel bajo al alcanzarse la cuenta pro- 
gramada y continuará de nuevo. 

— Modo 5: Generador de pulso activa- 
do exteriormente. Se produce un pulso de la 
duración programada como consecuencia de 
un pulso en la entrada. 


El temporizador 8253 que utiliza el IBM- 
PC está accesible en las siguientes direccio- 
nes de puertos: 


— X'40': Contador 0. Carga de valor ini- 
cial o lectura. 

— X'41': Contador 1. Carga de valor ini- 
cial o lectura. 

— X'42': Contador 2. Carga de valor ini- 
cial o lectura. 

— X'43': Control. Para inicialización o 
modificación de modos. 


Ejemplo de aplicación 


El circuito indicado en la figura utilizan- 
do el temporizador 8253-5 puede conectarse 
directamente al conector de expansión como 
un periférico bidireccional. La base de tiem- 
pos determinará la resolución de las medidas. 
Los circuitos de condiciones de las señales de 
entrada fijan los períodos de cuenta. Cada se- 
ñal de condicionamiento de una señal externa 
deberá también ser accesible al ordenador 
para poder saber cuándo se ha cumplido la 
condición. Todos los valores de temporización 
interna son programables y, por tanto, pueden 
adaptarse a cualquier tipo de aplicación. Los 
temporizadores pueden utilizarse en cadena, 
con lo que pueden conseguirse mayores valo- 
res de cuenta o de duración de períodos pro- 
gramables. La señal de selección SEL deberá 
producirse como en los otros circuitos presen- 
tados mediante decodificadores, para ubicar- 
lo en una zona de puertos no utilizada por otros 
adaptadores. Como el circuito tiene interna- 
mente 4 direcciones de puerto las entradas A0 


AL BUS DE DATOS 8253 


Fig. 7. 


y Al seleccionan cada registro interno y la en- 
trada CS selecciona el circuito. 

El circuito se utiliza frecuentemente 
para producir señales de frecuencia constan- 
te durante un intervalo determinado. Uno de 
los temporizadores genera la señal, mientras 
otro mide la duración del intervalo. Al termi- 
nar la generación de una frecuencia, se pro- 
grama la siguiente y la duración en el otro 
temporizador. 


Conclusión 


Con el ordenador personal y unos po- 
cos circuitos adicionales podemos realizar me- 
didas muy precisas de intervalos de tiempo 
entre sucesos, siempre que podamos obtener 
una señal eléctrica que permita indicar al con- 
tador cuándo tiene que contar los pulsos de 
una base de tiempos estable. Utilizando la me- 
dida precisa de tiempo podremos realizar nu- 
merosas medidas de fenómenos físicos que 
puedan generar señales convertibles en eléc- 
tricas y así aprovechar la potencia de nuestra 
máquina en aplicaciones realmente serias. 


AL CIRCUITO EXTERNO 


CONDICIONES 0 


CONDICIONES 1 


CONDICIONES 2 


Circuito de medida de intervalos con 8253. 


APRENDER CON EL ORDENADOR 


NATURALEZA 
Y TECNOLOGIA 


Genética 


ARA enunciar de una mane- 

ra general la importancia de 

la Genética podríamos decir 

que todos y cada uno de los 

caracteres físicos y psíqui- 

cos de un individuo vienen 

determinados por la heren- 

cia genética de sus antepa- 

sados y por la influencia del medio ambiente. 

Cada carácter está determinado por 

dos genes, uno procedente del padre y otro 

de la madre (que a su vez recibieron los su- 

yos de sus padres, y así sucesivamente), que 

se llaman generación P o paterna, y que se- 

rán los encargados de dotar a los descendien- 

tes, que se llaman generación F o filial, de 

ciertas cualidades, y de hacer que este indi- 

viduo sea portador de otras muchas que pue- 

den estar ocultas y transmitirlas a sus descen- 
dientes. 

El comportamiento de la transmisión de 


1 SCREEN 2 


caracteres puede estudiarse teniendo en 
cuenta un carácter (monohíbridos), o varios 
caracteres (polihíbridos). Nuestro programa 
tratará del primer caso. Mendel realizó ensa- 
yos basados en todo lo anterior y elaboró las 
famosas tres leyes que llevan su nombre. 

Hay genes dominantes y genes recesi- 
vos. Un gen dominante es aquél que se mani- 
fiesta en el fenotipo y uno recesivo es aquél 
que no se manifiesta, diciéndose, por tanto, 
que está oculto. Los genes se representan con 
letras, el dominante con mayúscula y el rece- 
sivo con la misma letra, pero en minúscula. La 
letra que se escoge suele ser la inicial del ca- 
rácter dominante. 

En este programa se selecciona aleato- 
riamente una determinada especie con el ca- 
rácter correspondiente, indicando asimismo 
cuál es la alternativa dominante y cuál la re- 
cesiva y a continuación también aleatoriamen- 
te se elige el padre y la madre. La clave es- 
tará en hallar el porcentaje de uno y otro ca- 
rácter que tendrá el fenotipo de los descen- 
dientes. 


A AA 


20 REM * 


PROBLEMAS DE GENETICA * 


30 REM 40 ARI AT RR RIE RIIIE MIRRA AIR IEA A di II E 
40 REM ei A RR INSTRUCCIONES 30m 44 IE RE IEA RR A A 


45 CLS 


SO PRINTER TIN S TRUCCIONES Ar 


HR RARA 
60 PRINT:PRINT:+PRINT:PRINT 


70 PRINT "ESTAS EN UN LABORATORIO DE GENETICA Y TU AYUDANTE" 

80 PRINT "TE PLANTEA UN PROBLEMA DE CRUZAMIENTO DE UNA DETERMINADA ESPECIE." 
90 PRINT "LOS GENES DE ESTA ESPECIE DETERMINARAN UN CARACTER PROPIO" 

100 PRINT "QUE TENDRA DOS ALTERNATIVAS: UNA DOMINANTE Y OTRA RECESIVA." 


110 PRINT 


120 PRINT '"BASANDOTE EN LAS CARACTERISTICAS GENETICAS DEL PADRE Y DE LA MADRE" 
130 PRINT "TENDRAS QUE HALLAR EL PORCENTAJE DE GENES DESCENDIENTES" 


140 PRINT "DE UNA Y OTRA ALTERNATIVA." 


APRENDER 


150 
160 
170 
180 
185 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
5310 
520 
530 
540 
550 
360 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
695 


CON EL ORDENADOR 


PRINT:PRINT:PRINT . 

PRINT " *PULSA UNA TECLA PARA CONTINUAR* " 
LET P$=INKEY$: 1F P+$="" THEN GOTO 170 . 

REM ARA RAR LECTURA DATOS DEL PROBLEMA 434434424402 AA 
CcLS 

DIM A$(80):DIM B$(20,4):DIM C$(20):DIM D$(20):DIM H$(4) 

FOR I=1 TO 80 

READ A$(1) 

NEXT 1 

FOR I= 1 TO 20 

FOR J=1 TO 4 

READ B$(1,J) 

NEXT J 

NEXT 1 

FOR 1I=1 TO 20 

READ C$(1) 

NEXT 1 

FOR I=1 TO 20 

READ D$(1) 

NEXT 1 

REM deere RR ENUNCIADO PROBLEMA 243030340624 0024243046 RI 
'RANDOMIZE TIMER 

LET J=INT(RND+*20)+1 

PRINT "ESPECIE:";A$(J) 

PRINT 

PRINT "CARACTER: ";A$(J+20) 

PRINT 

PRINT "ALTERNATIVA: ";A$(24J+39)3'"/"509(23+40) 

PRINT 

PRINT "GEN DOMINANTE: ";Aas(2x%J+39)3" ("¿BS(J,1);")" 

PRINT 

PRINT "GEN RECESIVO: "s5A$(2%J+40);" ("¿B$(J,3)353")3" 

PRINT: PRINT " 45% INDIVIDUOS A CRUZAR et." 
PRINT:+PRINT 

FOR I=1 TO 4 

LET X=INT(RND+4)+4 

LET H$(I)=B$(J,X) 

NEXT 1 

PRINT "PADRE: "35H$(1);H$(2) 

PRINT "MADRE: "5H$(3);H3$(4) 

PRINT:PRINT 

PRINT "PORCENTAJE DE DESCENDIENTES ";C$(J): INPUT X4 

PRINT "PORCENTAJE DE DESCENDIENTES ";D$(.J): INPUT Xx2 

REM RAI RARA SOLUCION HR ARRE A TRI 
LET Z=0 

FOR I=1 TO 2 

IF ASC(H$(1))<97 OR ASC(H$(3)) <£ 97 THEN Z=Z+1 

IF ASC(H$(1))<97 OR ASC(H$(4)) < 97 THEN Z=Z+1 

NEXT 1 ; 

LET Y=(2:*100)/4 

IF X1=Y AND X2=(100-Y) THEN PRINT "RESPUESTA CORRECTA" 

IF XAX>Y OR X2<>(100-Y) THEN PRINT "RESPUESTA INCORRECTA" 
PRINT "PULSE UNA TECLA PARA VER PROBLEMA RESUELTO" 

LET P$=INKEYS:IF P$="" THEN GOTO 470 

CLS 

PRINT " PADRE MADRE" 
PRINT 


700 PRINT " "HS (1) H$(2)7" "HS (3 
E );H5(4) 


703 
710 


720 
730 


HS(2);H$(4)5" "5H$(1)5H$(4) 


739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
7530 
731 
732 
733 


PRINT:PRINT:PRINT 

PRINT " OA "As (2)33" "5 HS(3)3" 
"5H$(4) 

PRINT :PRINT =PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 

PRINT * "3H3501);H$(3)3"" "5H$8(2)5H$(3);5"" 24 


LET A$="M+0,+110" 
PSET(55, 100) :DRAW As 
LET A$="M1479,+110" 
PSET(55, 100) :DRAW As 
LET A$="M-313,+110" 
PSET(372, 100) :DRAW AS 
LET A$="M+0,+110" 
PSET (534, 100) :DRAW AS 
LET A$="M-150,+110" 
PSET(370, 100) :DRAW AS 
LET A$="M+0,+110" 
PSET (220, 100) :DRAW AS 
LET A$="M+150,+110" 
PSET (220, 100) :DRAW AS 
LET A$="M-150,+110" 
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734 PSET(534, 100) :DRAW AS 

1000 REM dente ar FINAL DEL PROGRAMA 320462 E 

1010 PRINT:PRINT "PULSE CUALQUIER TECLA PARA CONTINUAR" 

1020 PRINT '"S PARA SALIR DEL PROGRAMA" 

1030 LET Z$=INKEYS :IF Z$=""THEN GOTO 1030 

1040 IF Z$="S"OR Z%$="s" THEN END 

1050 CLS:GOTO 340 

2000 DATA COBAYOS, HOMBRE, MOSCA, HOMBRE , HOMBRE , HOMBRE, HOMBRE , HOMBRE , HOMBRE , HOMBRE, 
HOMBRE , OVEJA, GALLINA, CERDO, CONEJO, HOMBRE, TORO, PLANTA, MOSCA,CALABAZA DE VERANO 
2010 DATA COLOR DEL PELO,SORDOMUDEZ,COLOR DEL CUERPO,COLOR DE LOS OJOS,COLOR DEL 
PELO, TIPO DE PELO,DALTONISMO, ALBINISMO,HEMOFILIA, TIPO DE OJOS,FACTOR Rh,COLOR D 
E LA LANA, TIPO DE CRESTA,TIPO DE OREJAS, COLOR DEL PELO,MIOPIA,CUERNOS 

2020 DATA TIPO DE SEMILLA,FORMA DE LAS ALAS,COLOR 

2030 DATA NEGRO, ELANCO, NORMAL , SORDOMUDO, GRIS ,NEGRO, OSCURO, CLARO, OSCURO, RUBIO,R1IZ 
ADO,LISO, NORMAL , DALTONICO, NORMAL., ALBINO ,NORMAL., HEMOFILICO, SESGADOS, NORMALES,Rh+, 
Rh-—,BLANCO, NEGRO, EN ROSA, ASERRADA, PELUDA, DESNUDA, NEGRO, LEONADO ,MIOPE 

2040 DATA VISION NORMAL.,FALTA, PRESENCIA, LISA,RUGOSA, NORMAL , VESTIGIAL, BLANCO, AMAR 
ILLO 

2050 DATA N,N,n,n,N,N,n,n,G6,6,9,9+0,0,0,0,0,0,0,0,R,R,r,r,N,N,n,n,N,N,n,n,N,N,n, 
n,S,S,s,S,R+R,r,r,B,B,b,b,E,E,e,8,P,P,p,p,N,N,D0,n,M,M,m,m,F,F,f,f,L,L,1,1,N,N,n, 
n,B,B,b,b $ 
2060 DATA DE PELO NEGRO, NORMALES,DE CUERPO GRIS,DE OJOS OSCUROS,DE PELO OSCURO,D 

E PELO RIZADO, NORMALES, NORMALES, NORMALES,CON OJOS SESGADOS,CON Rh+,DE LANA BLANC 
A,DE CRESTA EN ROSA,DE OREJAS PELUDAS,DE PELO NEGRO,MIOPES,SIN CUERNOS 

2070 DATA DE SEMILLA LISA,DE ALAS NORMALES,DE COLOR BLANCO 

2080 DATA DE PELO BLANCO, SORDOMUDOS,DE CUERPO NEGRO,DE 0JOS CLAROS,DE PELO RUBIO 
,DE PELO LISO,DALTONICOS,ALBINOS,HEMOFILICOS,CON 0JOS NORMALES,CON Rh-,DE LANA N 
EGRA,DE CRESTA ASERRADA,DE OREJAS DESNUDAS,DE PELO LEOMADO,NORMALES,CON CUERNOS 
2090 DATA DE SEMILLA RUGOSA,DE ALAS VESTIGIALES,DE COLOR AMARILLO 


1 SCREEN 2 
10 REM 3er ada RI ARI RAI DIR REIR RIA 
20 REM + PROBLEMAS DE GENETICA * 


30 REM eee A IA MR REI IR RI AA AE RR III 
40 REM NANO NOOO INSTRUCCIONES 363024303644 Hed RIIIE RR IR 
453 CLS 

SO PRINTS INSTRUCCIONES re 
AAA 

60 PRINT:PRINT:PRINT:PRINT 

70 PRINT "ESTAS EN UN: LABORATORIO DE GENETICA Y TU AYUDANTE" 

80 PRINT "TE PLANTEA UN PROBLEMA DE CRUZAMIENTO DE UNA DETERMINADA ESPECIE." 
90 PRINT "LOS GENES DE ESTA ESPECIE DETERMINARAN UN CARACTER PROPIO" 

100 PRINT "QUE TENDRA DOS ALTERNATIVAS: UNA DOMINANTE Y OTRA RECESIVA." 

110 PRINT 

120 PRINT “BASANDOTE EN LAS CARACTERISTICAS GENETICAS DEL PADRE Y DE LA MADRE" 
130 PRINT "TENDRAS QUE HALLAR EL PORCENTAJE DE GENES DESCENDIENTES" 

140 PRINT "DE UNA Y OTRA ALTERNATIVA." 

150 PRINT:PRINT:PRINT 

160 PRINT " *PULSA UNA TECLA PARA CONTINUAR " 

170 LET PS$=iNKEYS$: IF P$="" THEN GOTO 170 

180 REM derma LECTURA DATOS DEL PROBLEMA seee e 
185 CLS 

190 DIM A$(80):DIM B$(20,4):D1M C$+(20):D1IM D$(20):DIM H$(4) 

200 FOR I=1 TO 80 

210 READ A$(I) 

220 NEXT 1 

230 FOR I= 1 TO 20 

240 FOR J=1 TO 4 

250 READ B+$(1,J) 

260 NEXT J 

270 NEXT 1 

280 FOR I=1 TO 20 

290 READ C$(1) 

300 NEXT 1 

310 FOR 1=1 TO 20 

320 READ D$(1) 

330 NEXT 1 

340 REM AH ARARARRAARENUNC ADO PROBLEMA 4 AREA II AAA 
350 RANDOMIZE TIMER 

360 LET J=IMT(RND*20)+1 

370 PRINT "ESPECIE:";A%(J) 


380 PRINT 

390 PRINT "CARACTER: ";A$(J+20) 

400 PRINT 

410 PRINT "ALTERNATIVA: ";As(2%J+39)7"/"3A$(2%J+40) 

420 PRINT ' 

430 PRINT "GEN DOMINANTE: ""sA$(2*J+39)3" ("3BS(J, 1) 300" 

440 PRINT 

450 PRINT "GEN RECESIVO: "¿A$(2xJ+40)5" (UGBS(J,3)3 9" 

460 PRINT: PRINT " JOR INDIVIDUOS A CRUZAR +0" 
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APRENDER CON EL ORDENADOR 


470 PRINT:+PRINT 
480 FOR I=1 TO 4 
490 LET X=INT(RND+*4)+1 
500 LET H$(1)=B$(J,X) 
510 NEXT 1 
520 PRINT "PADRE:"5H$(1);H$(2) 
530 PRINT "MADRE: "5H$(3);H$(4) 
540 PRINT:PRINT 
530 PRINT "PORCENTAJE DE DESCENDIENTES ";C$(J): INPUT X1 
560 PRINT "PORCENTAJE DE DESCENDIENTES ";D$(J):IMPUT X2 
570 REM seme A MI A SOLUCION RA 
580 LET Z=0 
590 FOR I=1 TO 2 
600 IF ASC(H$(1))<97 OR ASC(H$(3)) < 97 THEN Z=Z+1 
610 IF ASC(H$(1))<97 OR ASC(H$(4)) < 97 THEN Z=Z+1 
620 NEXT 1 - 
4 630 LET Y=(27x*100)/4 
640 IF X1=Y AND X2=(100-Y) THEN PRINT "RESPUESTA CORRECTA" 
650 IF X1<>Y OR X2%<>(100-Y) THEN PRINT "RESPUESTA INCORRECTA" 
660 PRINT “PULSE UNA TECLA PARA VER PROBLEMA RESUELTO" 
670 LET P$=INKEYS:1F P$="" THEN GOTO 670 


680 CLS 

69D PRINT " PADRE MADRE" 

693 PRINT 

700 -PRINT * "5 H$(1)3H8(2);5" "5 Hs(3 

);H$(4) 

7095 PRINT:PRINT:PRINT 

710 PRINT " "Hs (10 5" "5HS(2)5" "3Hs(3)35" 
"5H (4) 

720 PRINT :PRINT ¿PRINT :PRINT +PRINT :PRINT :PRINT :PRINT 

730 PRINT " "HS (103 H$ (3) 7" , "3H8(2);3H8(3)3" " 

H$(235H5(4)7" "35H5(1)5H$(4) 


739 LET A$="M+0,+110" 

740 PSET(55, 100) :DRAW AS 

741 LET A$="M+479,+110" 

742 PSET(55, 100) :DRAW AS 

743 LET A$="M-313,+110" 

744 PSET(372, 100) :DRAW As 

745 LET A$="M+0,+110" 

7456 PSET(S534, 100) :DRAW AS ' 

747 LET A$="M-150,+110" 

748 PSET(370,100):DRAW AS 

749 LET A$="M+0,+110" 

730 PSET(220, 100) :DRAW AS 

731 LET A$="M+150,+110" 

732 PSET(220, 100) :DRAW As 

753 LET A$="M-150,+110" 

734 PSET(534, 10D) :DRAW Ar 

1000 REM ete FINAL DEL PROGRAMA Hit Hs6st tie ee et 

1010 PRINT:PRINT "PULSE CUALQUIER TECLA PARA CONTINUAR" 

1020 PRINT "S PARA SALIR DEL PROGRAMA" 

1030 LET Z$=INKEYS$ :1IF Z$=""THEN GOTO 1030 

1040 IF Z$="S"0R Z$="s" THEN END 

1050 CLS:GOTO 340 

20094 DATA COBAYOS, HOMBRE, MOSCA, HOMBRE , HOMBRE , HOMBRE , HOMBRE, HOMBRE, HOMBRE , HOMBRE, 
S HOMBRE, OVEJA, GALLINA, CERDO, CONEJO, HOMBRE, TORO, PLANTA,MOSCA, CALABAZA DE VERANO 
2010 DATA COLOR DEL PELO,SORDOMUDEZ,COLOR DEL CUERPO,COLOR DE LOS OJOS,COLOR DEL 
PELO, TIPO DE PELO, DALTONISMO, ALBINISMO,HEMOFILIA, TIPO DE OJOS,FACTOR Rh,COLOR D 
E LA LANA,TIPO DE CRESTA,TIPO DE OREJAS, COLOR DEL PELO,MIOPIA,CUERNOS 
2020 DATA TIPO DE SEMILLA,FORMA DE LAS ALAS,COLOR 
2030 DATA NEGRO, BLANCO, NORMAL , SORDOMUDO, GR1S,MEGRO, OSCURO, CLARO, OSCURO ,RUBIO,R1Z 
ADO+L1ISO, NORMAL, DALTONICO, NORMAL. , ALBINO, NORMAL, HEMOFILICO, SESGADOS, NORMALES, Rh+, 
Rh=,BLANCO,NEGRO,EN ROSA, ASERRADA, PELUDA, DESNUDA, NEGRO , LEONADO ,MIOPE 
2040 DATA VISION NORMAL,FALTA, PRESENCIA, LISA, RUGOSA, NORMAL, VESTIGIAL , BLANCO, AMAR 
ILLO 
2050 DATA N,N,n,n,N,N,n,n,G6,G,9,9,0,0,0,0,0,0,0,0,R,R,r,r,N,N,n,n,N,N,n,n,N,N, n, 
n,5,5,55,R,R,r,r,B,B,b,b,E,E,e,e,P,P,p,P,N,Nsn,n,M,M,m,m,F,F,f,f,L,L,1,1,N,N,n, 
n,B,B,b,b 
2060 DATA DE PELO NEGRO, NORMALES,DE CUERPO GRIS,DE 0JOS OSCUROS,DE PELO OSCURO,D 
E PELO RIZADO,NORMALES, NORMALES ,NORMALES,CON OJOS SESGADOS,CON Rh+,DE LANA BLANC 
A,DE CRESTA EN ROSA,DE OREJAS PELUDAS,DE PELO NEGRO,MIOPES,SIN CUERNOS 
2070 DATA DE SEMILLA LISA,DE ALAS NORMALES,DE COLOR BLANCO 
2080 DATA DE PELO BLANCO,SORDOMUDOS,DE CUERPO NEGRO,DE OJOS CLAROS,DE PELO RUBIO 
,DE PELO LISO,DALTONICOS,ALBINOS,HEMOFILICOS,CON OJOS NORMALES,CON Rh-,DE LANA N 
EGRA,DE CRESTA ASERRADA,DE OREJAS DESNUDAS,DE PELO LEONADO,NORMALES,CON CUERNOS 
2090 DATA DE SEMILLA RUGOSA,DE ALAS VESTIGIALES,DE COLOR AMARILLO 
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Modificaciones para otros equipos 


El programa es válido para el IBM PC, 
siendo las variaciones para los demás ordena- 
dores las siguientes: 


AMSTRAD 


1 MODE 1 

Eliminar línea 350. 

En las líneas 739-754: 

— Utilizar MOVE(X,Y) en vez de 
PSET(X, Y). 

— Ajustar coordenadas a la pantalla 
gráfica MODE 1 de AMSTRAD. 

— Sustituir A$ por A y suprimir M. 


MSX 
Las mismas que para Amstrad, excepto: 
1 SCREEN 1 


COMMODORE 


45 PRINT CHR$(147) 

185 PRINT CHR$(147) 

680 PRINT CHR$(147) 

1050 PRINT CHR$(147) 

Eliminar línea 350. 

En vez de líneas 739-754 utilizar subru- 
tina de gráficos del tomo 1 (sección trucos de 
programación). 


ZX-SPECTRUM 


190 DIM A$(20,18):DIM B$(20,4):DIM 
C$(20,25):DIM D$(20,25):DIM H$(4,1) 
350 RANDOMIZE 0 
600 IF CODE H$(M)<97 OR CODE H$(83)<97 
THEN Z=Z+1 
610 IF CODE H$()<97 OR CODE H$(4)<97 
THEN Z=Z-+1 
En las líneas 739-754: 

— Utilizar PLOT (X,Y) en vez de PSET 
(XD. 


1 SCREEN 2 
10 CLS 


AP | 
— Ajustar coordenadas a la pantalla 
gráfica de alta resolución del Spectrum (286 
columnas por 176 filas). 
— Sustituir A$ por A y suprimir M. 
1040 IF Z$="S" OR Z$="s" THEN GOTO 9999 


Todos los elementos de las sentencias 
DATA deberán ir entre comillas. 


MATEMATICAS 


1 Areas de figuras geométricas 


No cabe duda de que la Geometría es 
una de las partes más importantes de la Mate- 
mática, sobre todo por la utilidad práctica que 
ésta tiene en la vida real. 

¿A quién no le surge en algún momen- 
to la necesidad de forrar un libro, empapelar 
una pared, alicatar un suelo o incluso cercar 
un terreno? 

Y todos estos son los ejemplos más. sen- 
cillos que pueden presentarse, claro que, por 
ahora, sólo trataremos el tema de los polígo- 
nos regulares, sin entrar en otros planteamien- 
tos que resultarían más complicados; de todas 
maneras, ésta es la base de este tipo de Ma- 
temática práctica. 

Estas fórmulas que, a veces, son difíci- 
les de recordar, conviene que podamos tener- 
las archivadas, para que en cualquier momen- 
to podamos disponer de ellas de una manera 
rápida y sencilla. 

En el programa que a continuación pre- 
sentamos se elegirá la opción deseada del 
menú, y después de dar los datos pertinentes 
para cada figura aparecerá el área de la figu- 
ra elegida y un dibujo cualitativo de la misma. 


20 REMAARAAAR AAAARA PRESENTA LON RR IIA 
30 PRINT "ete ROMHAREAS DE FIGURAS GEOMETRICAS were retiene 


FHHHRAIA AA 


40 PRINT:PRINT 

50 PRINT TAB(7)3'"1 CUADRADO" 
60 PRINT TAB(7);5"2 RECTANGULO" 
70 PRINT TAB(7)5'"3 TRIANGULO" 
80 PRINT TAB(7);5'"4 ROMBO" 

90 PRINT TAB(7)'5 ROMBOIDE" 
100 PRINT TAB(7);"6 TRAPECIO" 


110 PRINT TAB(7)3; 
120 PRINT TAB(7); 
130 PRINT TAR(7); 
140 PRINT TAB(7)3;" 


"8 CIRCULO" 
"9 SECTOR CIRCULAR" 
10 CORONA CIRCULAR" 
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*7 POLIGONOS DE MAS DE 4 LADOS" 


APRENDER CON EL ORDENADOR 


145 PRINT 3PRINT ¿PRINT :PRINT 
150 INPUT "PULSA EL NUMERO DE TU OPCION"; A 
160 CLS:P1I=3. 14159 
170 ON A GOSUB 300,400,500,400,700,8200,900, 1000, 1100, 1200 
180 GOTO 30 
300 GOSUB 2000 
310 INPUT "LONGITUD DEL LADO="5L 
320 PRINT TAB(7);"AREA="5L*2 
330 GOTO 3000 
400 GOSUB 2100 
410 INPUT "LONGITUD DE LA BASE=";B 
420 INPUT "LONGITUD DE LA ALTURA=";H 
430 PRINT TAB(7)5 “AREA="5B+*H 
440 GOTO 3000 
500 GOSUB 2200 
510 INPUT "LONGITUD DE LA BASE=";B 
520 INPUT "LONGITUD DE LA ALTURA="3H 
530 PRINT TAB(7)5 “AREA="5Bx+H/2 
540 GOTO 3000 

en 600 GOSUB 2300 
610 INPUT "LONGITUD DE LA DIAGONAL MAYOR="3;D1 
620 INPUT "LONGITUD DE LA DIAGONAL MENOR="3D2 
630 PRINT TAB(7);"AREA="3D1+D2/2 
640 GOTO 3000 
700 GOSUB 2400 
710 INPUT "LONGITUD DE LA BASE=";B 
720 INPUT "LONGITUD DE LA ALTURA="35H 
730 PRINT TAB(7);"AREA=""5BxH 
740 GOTO 3000 
800 GOSUB 2500 
8:10 INPUT "LONGITUD DE LA BASE MAYOR=";B1 
820 INPUT "LONGITUD DE LA BASE MENOR=" 
830 INPUT "LONGITUD DE LA ALTURA=";H 
840 PRINT TAB(7)5"AREA="5 (B1+B2)H/2 
850 GOTO 3000 
900 CLS : A 
905 PRINT "srt RRAARAARRPOL IGONOS REGULARES DE MAS DE CUATRO LADOS ++ 
HRHRRAHRRRAR 
910 PRINT ¿PRINT :PRINT :PRINT 
920 PRINT TAB(7)5'"1 PENTAGONO":PRINT 
93D PRINT TAB(7);"2 HEXAGONO":PRINT 
940 PRINT TAB(7)5"3 HEPTAGONO":PRINT 
950 PRINT TAB(7);5'4 OCTOGONO":PRINT 4 
960 PRINT TAB(7);5"5 ENEAGONO"“PRINT 
970 PRINT TAB(7);5"6 DECAGONO":PRINT 
9723 INPUT ' NUMERO DEL POLIGONO ELEGIDO:";N 
980 IF N<1 OR N>6 THEN GOTO 900 ; 
983 CLS: INPUT "LONGITUD DEL. LADO="5L 
9790 INPUT "LONGITUD DE LA APOTEMA=";A 
993 PRINT TAB(7);"AREA DEL POLIGONO="; (N+4)+L+*A/2 
997 GOTO 3000 
1000 GOSUB 2400 
1010 INPUT "LONGITUD DEL RADIO=";¿R:PRINT 
1020 PRINT TAB(7);"AREA="5PI+R+R 
1030 GOTO 3000 
1100 GOSUB 2700 
1110 INPUT “LONGITUD DEL RADIO=";R:PRINT 
1120 INPUT "ANGULO DEL SECTOR CIRCULAR (en grados>=";B 

>» 1130 PRINT TAB(7);"AREA=";P 1%R*R4R*B/360 

1140 GOTO ¡3000 
1200 GOSUE 2800 
1210 INPUT "LONGITUD DEL RADIO MAYOR=";R1:PRINT 
1220 INPUT "LONGITUD DEL RADIO MENOR="sR2:PRINT 
1230 PRINT TAB(7)5"AREA="5 (PIAR AR 1)-(PIARZARZ) 
1240 GOTO 3000 
2000 PRINT'" CUADRADO": As="M+200,+0" 
2005 PRINT3PRINT 
2010 PSET (100, 150) :DRAW a4$ 
2020 A$="M+0,-100":DRAW As 
2030 Af="M-200,+0'":DRAW AS 
2040 Aé$="M+0,+100">DRAW As 
2050 RETURN , 
2100 PRINT " RECTANGUL 0:As="M+200,+0" 
2105 PRINT:PRINT 
2110 PSET (100,150):DRAW As 
2120 A$="M+0,-50":DRAW AS 
2130 A="M-200,+0"2DRAW as 
2140 A$="M+0,+50":DRAN As 
2150 RETURN 
2200 PRINT " TRIANGUL 0 ":As="M+200,+0" 


44 


2203 PRINT:PRINT 


TRAPECIO":as="Me200,+0" 


R0OMB0"A$="M+150,-50" 


ROMBO 1D E*:As="M+200,+0" 


ET RUOSUL 


CIRCULAR" 


CIRCULAR" 


2210 PSET (100, 150) :DRAW AS 

2220 A$="M-100,-100":DRAW As 

2230 A$="M-100,+100":DRAW AS 

2240 RETURN 

2300 PRINT " 

2305 PRINT:PRINT 

2310 PSET (200, 150):DRAWN as 

2320 A$="M-150,-50":DRAW As 

2330 A$="M-150,+50":DRAW As 

2340 A$="M+150,+50":DRAW As 

2350 RETURN 

2400 PRINT " 

2405 PRINT:PRINT 

2410 PSET (100,150) :+DRAW As 

2420 A$="M+100,-50'":DRAW As 

2430 A$="M-200,+0'":3DRAW AS 

2440 A$="M-100,+50":DRAW As 

2450 RETURN 

25300 PRINT “ 

2305 PRINT:PRINT 

2510 PSET (100,150) :DRAW As 

2520 A$="M-50,-50":DRAW AS 

2530 AS="M-100,+0":DRAW As 

2540 A$="M-50,+50":DRAW As 

2350 RETURN 

2600 PRINT " 

2605 PRINTIPRINT 

2610 CIRCLE (200,100),100,1,0,2x*P1 

2620 RETURN 

2700 PRINT " SECTOR 
2705 PRINT:PRINT 

2710 CIRCLE (250, 100),100,1,-2xP1,-PI/4 
2720 RETURN 

28D0 PRINT * CORONA 
2805 PRINT:PRINT 1 

2810 CIRCLE (300,100),100,1,0,2x«P1 

2820 CIRCLE (300, 100),50,1,0,2*PI 

2830 RETURN 

3000 REM setrnnepmetaaeaatfinal del programa SRRauuunRnaoeRIbE 
3010 LOCATE 22,5: PRINT "pulse S para salir" 
3020 LET Z$=INKEYS$:1F Z$=""THEN GOTO 3020 
3030 1F Z$="s" OR Z4$="S" THEN END 

3040 GOTO 10 


Modificaciones para otros equipos 


SPECTRUM 


Eliminar línea 1 

160 CLS 

170 LET Z=200+A*100 

175 IF Z<300 OR Z>1200 THEN GOTO 10 
180 GOSUB Z 


Para dibujar los gráficos, sustituir PSET 
(X, Y) por PLOT (X,Y). 


Eliminar variables A$ y adecuar coor- 
denadas a la pantalla del SPECTRUM. 


2610 CIRCLE (127,80,50) 

2110 PLOT (127,80):DRAW (50,0):DRAW 
(-25,40,PI/4):DRAW (-25,-40) 

2810 CIRCLE (127,80,50) 

2820 CIRCLE (127,80,25) 

3010 PRINT AT 20,5;"PULSE S PARA SALIR" 
3030 IF Z$ ="S" OR Z$="s" THEN GOTO 9999 
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COMMODORE 
Eliminar línea 1. 


10 PRINT CHR$ (147) 

160 PRINT CHR$(147) 

Para dibujar gráficos ver subrutina de dibujos 
del tomo 1 de 
900 PRINT CHR$ (147) 

3010 PRINT “PULSE S PARA SALIR" 


AMSTRAD 
1 MODE 1 


Para dibujar gráficos utilizar PLOT en 
vez de PSET. Utilizar A$ por A. Sustituir DRAW 
por DRAWR Y adecuar coordenadas a la pan- 
talla gráfica MODE 1 


MSX 


_ Las mismas modificaciones que para 
AMSTRD excepto: 


1 SCREEN 1 


APRENDER CON EL ORDENADOR 
SOCIEDAD 


Test de filosofía 


Desde los primeros tiempos, el hombre 
ha tenido la necesidad de preguntarse el por- 
qué de las cosas, el porqué del mundo y el 
porqué de su existencia; todas estas pregun- 
tas no siempre han encontrado su respuesta. 
Al principio los hombres buscaban esta res- 
puesta en el mito; trataban de darle a todo una 
explicación sobrenatural. Desde aquellos 
tiempos en que el hombre encontraba de 
aquella manera las respuestas, han ido re- 
corriendo la historia de la Filosofía grandes fi- 
guras del pensamiento, filósofos de todo tipo, 
género y corriente, que han intentado encon- 
trar el camino más claro y más diáfano para 
sus respuestas. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
É 260 
270 
280 
290 
300 
310 
320 
330 
2340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
240 
450 
460 
470 


REM 
REM 
REM 
CcLS 

DIM A$(25):D1M B$(75) 

DIM C(25):3DIM D(10) 

PRINT 

PRINT " 

PRINT " + + + 4 
PRINT " + 
PRINT " +“ * * + 
PRINT " 
PRINT 
PRINT 
PRINT " HAHAHA 
PRINT " * 3 
PRINT " HARE + 
PRINT " + + 
PRINT " ES 
PRINT 
PRINT 


HE 


+ A 


+ 
+ 


ES 


REM 2% 


FOR N=1 TO 25 
READ ASIN) 
NEXT N 

FOR N=1 TO 
READ BS$(N) 
NEXT N 

FOR N=1 TO 
READ C(M) 
NEXT ON 

FOR N=1 TO 
LET D(M)=0 
NEXT ON 
PRINT " 
PRINT " 
PRINT 
PRINT * 
PRINT 
FOR QG=1 TO SODD:NEXT Q 
LET X=0:LET A=0:LET B=0 


vs 


25 


10 


TIPO 


REM %% 


RANDOMIZE TIMER 


H HHXHH > 


HÁHA HARA HERA HHHA 


Se han elaborado complicadas teorías, 
argumentos de todo tipo; se han escrito miles 
y miles de páginas tratando el tema de la Fi- 
losofía en todas sus ramas. Y aun hoy en día 
son muchas las personas que se dedican a este 
tipo de investigación, porque en el hombre no 
morirá nunca el afán de saber y la capacidad 
de preguntarse. 

Se ha comparado muchas veces la Filo- 
sofía con una habitación oscura, en la que cada 
filósofo enciende una pequeña luz, pero que 
por mucho que lo intente no podrá ver la ha- 
bitación entera; cada filósofo ve un trocito y 
nos lo explica a su manera. 

En el programa que a continuación se 
presenta se hace un test similar al que ante- 
riormente apareció en el tomo 3; se presenta- 
rán unas preguntas a las que deberás ir res- 
pondiendo, y finalmente obtendrás una pun- 
tuación en relación a las respuestas acertadas. 


HH RAMA RE IR RAI II REIR RR RIO PAI RR 
TEST DE FILOSOFIA 
HH REI RRA ME DE RRA RRA IRA 


+ 


HR ARANA A y" 


dd . + * . 4 
A . 4 ae 
* + * 4 + .." 
Ho Ho HAHHH $ de 


HAHAHA HARE RARA RARA MR AE 


+ + + H + * + ." 
H RA H EHH * HH 
3 + + + + + + 


HARE q 


RED 4444 E A A II IE HIRE DEI AA A 
LECTURA DE PREGUNTAS Y RESPUESTAS 
REM qee ee e EI IE ME RIE E ID RIERA DEI RIA A A 


HH 


EL EXAMEN CONSTA DE 10 PREGUNTAS " 


TEST." 


DEBERAS CONTESTAR EL NUMERO DE LA RESPUESTA CORRECTA" 


REM AAA TER AR AD RIA II HDI RR AAA AAA 


GENERACION DE 10 PREGUNTAS ALEATORIAS 
REM e RA RIA RIO MADE ERARIO RATE RE ARE REE RARA RRA 


++ 
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480 LET W=INT(RND+*25)+1 

490 CLS 

500 FOR N=1 TO 10 

510 IF D(N)=W THEN GOTO 470 

52D NEXT N 

530 LET X=X+1 

540 LET D(X)=%w 

550 PRINT A$(W) 

560 PRINT 

570 PRINT 

580 PRINT 

590 PRINT TAB(2);B$((3*W)>-2) 

600 PRINT 

£10 PRINT TAB(2);B$( (3+W)-1) 

620 PRINT . 

630 PRINT TAB(2);B+$(3%W) 

640 PRINT:PRINT 

650 REM deere AA 

660 REM *%* RESPUESTAS + 

670 REM AHHH ARA AAA y 
680 INPUT "RESPUESTA: "50 

6790 IF C=C(W) THEN GOSUB 740 

700 IF CXx>+C(W) THEN GOSUB 820 
710 CLS 

720 1F X=10 THEN GOTO 900 

730 GOTO 470 

740 REM 2430444 H RI IA RAR 
7530 REM +* RESPUESTA CORRECTA ses 
760 REM dee men RIERA 
770 PRINT 

780 PRINT " ¡CORRECTO! " 

790 FOR QG=1 TO 1000:NEXT Q 

800 LET A=A+1 

810 RETURN 

BZO REM em e IR IA 
830 REM x* RESPUESTA INCORRECTA ++ 
840 REM Het IIA AR 
850 PRINT 

860 PRINT ¡INCORRECTO! " 
870 FOR QG=1 TO SOD:NEXT Q 

2880 LET E=B+1 

890 RETURN 

S0O REM eeh REE RI A AER RI 
910 REM 3* RESULTADOS EXAMEN 4 
920 REM tee II AAA 


930 PRINT TAB(5);" RESULTADOS DEL EXAMEN" 
940 PRINT TAB(3)5" * >PRINT=PRINT 
930 PRINT TAB(5);" RESPUESTAS CORRECTAS "sA¡PRINT :PRINT 


260 PRINT TAB(5)5" RESPUESTAS INCORRECTAS  —"¿B3PRINT :PRINT 
970 IF A>=5 THEN GOTO 1020 

980 PRINT TAB(S) : eses dese RARA A 
990 PRINT TAB(5)3"%x ¡DEBES ESTUDIAR MAS! ..n 
1000 PRINT TAB(S5S) 3 "need see AAA RR RARA AR A 
1010 GOTO 1040 


1020 1F A>8 THEN PRINT-TAB(S)3" ERES UN BUEN ESTUDIANTE. ¡SOBRESALIENTE! ":GOTO 
1040 
1030 PRINT TAB(S)5" ¡HAS APROBADO!" 


1040 INPUT "¿QUIERES HACER OTRO EXAMEN7"5Z4 

1050 1F Z$="S" OR Z$="s'" THEN GOTO 430 

1060 END 

1070 DATA ¿EN QUE CIVILIZACION SE DAN LAS PRIMERAS FIGURAS DESTACADAS DE LA FILO 

SOFIA?,¿CUAL ES LA PRIMERA PREGUNTA REALMENTE FILOSOFICA QUE SE HACE EL HOMBRE? , 
¿A QUE SE REFIERE EL PERIODO ANTROPOLOGICO? 

1080 DATA ¿QUIEN ESCRIBIO LA "ETICA A NICOMACO"?,¿QUIEN ESCRIBIO EL “LIBRO DE LA 
REPUBLICA"?,¿QUIEN UTILIZO LA PALABRA HOMEOMELIAS?,¿CON QUE PERIODO DE LA FILOS 

OFIA SE CORRESPONDE EL ESPLENDOR DEL MUNDO GRIEGO? 

1090 DATA ¿DE QUIEN SON LAS LLAMADAS 5 VIAS?,¿QUE CORRIENTE DEFIENDE LA CONSUSTA 

NCIALIDAD ENTRE CUERPO Y ALMA?,¿A QUE CORRIENTE DEL PENSAMIENTO PERTENECE LA FRA 
SE "VIVIR CONFORME A LA NATURALEZA"? 

1100 DATA SENECA ERA, ¿QUIEN TRATA POR PRIMERA VEZ EL TEMA DE MOVIMIENTO DE CAIDA 
LIBRE?,¿QUEÉ AUTOR PARTE EN SU FILOSOFIA DE LA DUDA GENERAL?,¿QUIEN ES EL QUE DE 
FIENDE QUE TODO LO PENSABLE ES POSIBLE? 


1110 DATA AL HABLAR DEL EMPIRISMO ¿QUE VALOR RESALTAMOS MAS? ,HABLANDO DE ILUSTRA 


CION ¿A QUE NOS REFERIMOS MAS EXACTAMENTE?,¿A QUIEN CORRESPONDE EL TERMINO "ARJE 
un 

1120 DATA ¿A QUIEN CORRESPONDE EL TERMINO "APEIRON"?7,¿QUIEN ES EL AUTOR DE LA FR 
ASE "SOLO SE QUE NO SE NADA'"'?,¿QUIEN ES EL AUTOR DE LA FRASE "PIENSO LUEGO EXIST 
0''?, ¿QUIEN AFIRMO QUE LA VIRTUD ESTA EN EL TERMINO MEDIO? 

1130 DATA ¿QUIEN AFIRMO QUE EL HOMBRE ES UN LOBO PARA EL HOMBRE?,¿A QUE CORRIENT 
E PERTENECE MARX?,¿QUIEN ESCRIBIO "LA REBELION DE LAS MASAS"?,¿QUIEN ESCRIBIO "A 
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APRENDER CON EL ORDENADOR 


SI HABLO ZARATRUSTA? 

1140 DATA 1 GRECIA,2 ROMA, 3 MESOPOTAMIA, 1 ¿QUE ES LA VIDA?,2 ¿COMO SE MUEVE EL 
MUNDO?,3 ¿QUE HAY EN EL FONDO DE LAS COSAS?,1 AL AGUA,2 AL HOMBRE,3 AL COSMOS 
1150 DATA 1 PLATON,2 SOCRATES,3 ARISTOTELES, 1 PLATON, 2 ARISTOTELES,3 SOCRATES, 1 
ARISTOTELES, 2 SANTO TOMAS DE AQUINO,3 SAN AGUSTIN 

1160 DATA 1 ANTROPOLOGICO,2 COSMOLOGICO,3 DE LA ETICA, 1 ARISTOTELES,2 SAM AGUSTI 
N,3 SANTO TOMAS DE AQUINO 

1170 DATA 1 CRISTIANA,2 ARISTOTELICA,3 NEOPLATONICA, 1 CINICOS,2 HEDONISTAS,3 ESC 
EPTICOS, 1 ESTOICO,2 ESCEPTICO,3 EPICUREO, 1 COPERNICO,2 GALILEO,3 NEWTON 

1180 DATA 1 KANT,2 DESCARTES, 3 ESPINOSA, 1 LEIBNIZ,2 KANT,3 SPINOZA, 1 RAZON,2 EXP 
ERIENCIA,3 INTULCION, 1 MOVIMIENTO CULTURAL ,2 MOVIMIENTO POLITICO,3 MOVIMIENTO SO 
CIAL 

1190 DATA 1 THALES DE MILETO,2 PITAGORAS,3 ARISTOTELES,1 PLATON,2 ANAXIMANDRO, 3 
ANAXIMENES, 1 PLATON,2 SOCRATES,3 EPICURO, 1 LOCKE, 2 HOBBES,3 DESCARTES, 1 ARISTOT 
ELES,2 SENECA,3 GUILLERMO DE OCKHAM 

1200 DATA 1 LOCKE,2 HOBBES,3 ROUSSEAU, 1 HUMANISMO,2 RACIOVITALISMO,Z3 EMPIRISMO, 1 


. MARX,2 HEGEL,3 ORTEGA, 1 NIEZTCHE,2 MARX,3 ENGELS 
1210 DATA 1,3,2,3,1,1,1,3,2,1,1,2,2,1,2,1,1,2,2,3,1,2,1,3,1 


Modificaciones para otros equipos 


El programa es válido para el IBMPC. 
En los demás equipos habría que efectuar las 
siguientes modificaciones: 


SPECTRUM 
50 DIM A$(25,80):DIM 
420 PAUSE 0 
790 PAUSE 100 
870 PAUSE 100 
1060 GOTO 9999 


Además habría que eliminar la línea 


B$(75,40) 


470. 
COMMODORE 


40 PRINT CHR$(147) 

480 LET W=INT(RND(1)'25)+1 
490 PRINT CHR$(147) 

710 PRINT CHR$(147) 


Además habría que eliminar la línea 
470. > 


MSX 
480 LET W=LNT(RND(1)'25)+1 


Además habría que eliminar la línea 
470. 


AMSTRAD 
Habría que eliminar la línea 470. 


10 CLS 
LO REM AAA RIA 
30 REM 3 NUMEROS ROMANOS e* 


E 


PERA LOS MAS JOVENES 


Números romanos 


Dentro de la gran variedad de numera- 
ciones que existen, la romana tiene mayor im- 
portancia entre nosotros, ya que es de las más 
antiguas conocidas debido a la expansión de 
esta cultura por el mundo occidental, y que ha 
llegado a nuestros días tal cual se utilizaba en 
los años anteriores a Jesucristo. Incluso en mu- 
chos casos fue utilizada por los colonizadores 
de América para aumentar su capital sin que 
nadie entendiera la complejidad de este sis- 
tema. 

El sistema de numeración romano está 
basado en la adición y la sustracción, median- 
te un número finito de símbolos y siguiendo 
unas pequeñas reglas; con todo esto es posi- 
ble representar todos los números naturales. 

En Europa fue sustituida por la numera- 
ción arábiga y sánscrita hacia el siglo XIII, que 
ofrecían un uso más fácil y simplificado de la 
numeración; sin embargo, su uso no se perdió 
completamente ya que aún en nuestros días 
los números romanos se siguen usando en co- 
sas tales como la denominación de siglos, de 
reyes y papas que tienen el mismo nombre y 
también en el programa que a continuación les 
presentamos, que convierte números natura- 
les en romanos. 


50 PRINTS e RANUMEROS ROMANOS 2 e 


HARHMARARA 
60 INPUT "INTRODUCE NUMERO: "; 


70 IF N<0O THEN PRINT "NUMERO INCORRECTO"*FOR X=1 TO SOD:NEXT X:CLS:GOTO 60 
80 PRINT:PRINT:PRINT:PRINT "EL NUMERO ROMANO CORRESPONDIENTE AL "¿N;" ES "; 
90 LET A=INT(N/1000) 

400 IF A<>0 THEN GOSUB 540 

410 LET N=N-(1000%A) 

120 IF N>=900 THEN GOTO 160 

430 LET B=INT(N/500) 

140 IF B<>0 THEN PRINT "D'; 

450 GOTO 190 

160 PRINT "CM"; 

170 LET N=M-=900 

180 GOTO 280 

490 LET N=N-(5D0*B) 

200 IF N>=400 THEN GOTO 240 

210 LET C=INT(N/100) 

220 IF C<>0 THEN GOSUB 580 

230 GOTO 270 

240 PRINT "CD"; 

250 LET N=N-400 

260 GOTO 280 

270 LET N=N--(100%C) : s 
280 IF NM>=9D THEN GOTO 320 

290 LET D=INT(N/50) 

300 IF D<>0 THEN PRINT “L"; 

310 GOTO 350 

320 PRINT "XC"; 

330 LET N=N=90 

340 GOTO 440 

350 LET N=N-(SO*D) 

360 IF N>=40 THEN GOTO 400 

370 LET E=INT(N/10) 

380 1F E<>0 THEN GOSUB 620 

390 GOTO 430 

400 PRINT "XL"; 

410 LET N=N-40 

420 GOTO 440 1 

430 LET N=N-=(10*E) 

440 IF N=9 THEN PRINT "1X";:GOTO 660 
450 LET F=INT(N/S) 

460 1F F<>0 THEN PRINT "V"; 

470 LET N=N-(5%F) 

480 IF N=4 THEN PRINT "1V";:GOTO 660 
490 1F N=0- THEN GOTO 660 

500 FOR*1=1 TO N 

510 PRINT "1"; 

520 NEXT 1 

530 GOTO 660 

540 FOR .=1 TO A 

550 PRINT "M"; 

560 NEXT 1 

570 RETURN 

580 FOR 1I=1 TO € 

590 PRINT "Cc"; 

600 NEXT .I 

610 RETURN 

620 FOR I=1 TO E 

630 PRINT "X"; 

640 NEXT 1 

£50 RETURN 

660 PRINT:PRINT:PRINT 

670 INPUT "OTRO NUMERO (S/N)";A$ 
680 1F A$="S" OR A$="s" THEN GOTO 40 


690 END 
Modificaciones Variaciones para el ZX-SPECTRUM 
para otros equipos 690 GOTO 9999 


Este programa es válido para los orde- Variaciones para COMMODORE 
nadores IBM PC, MSX y AMSTRAD. 10 PRINT CHR$( 47) 
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PEQUEÑA HISTORIA DE LA INFORMATICA 


EAMOS ahora el valle des- 
de otra perspectiva, no de- 
masiado altruista: la del di- 
nero. ¿De dónde provenía el 
capital que invertían los «no- 
vatos» en sus empresas? 
¿De bancos convenciona- 


les? ¿Eran ellos mismos ri-. 


cos? ¿Tenían acaso tal «gancho» como para 
convencer a financieros, o se asociaban con 
ellos? De todas estas posibilidades, la más co- 


mún es la de financieros aventureros, que in-. 


vierten su capital en empresas porque creen 
en su futuro, El riesgo que corren es enorme, 
pero las ganancias que pueden obtener tam- 
bién son muy sustanciosas. Normalmente, este 
tipo de personas no sólo invierte el dinero en 
la empresa o negocio incipiente, sino que sue- 
le asesorar y casi «sufrir» con el empresario 
sus avatares empresariales. Así, por ejemplo, 
le pueden ayudar indicándole asesores fisca- 
les, empresas de publicidad, aconsejándole 
en problemas de personal, etc. También sue- 
len asesorarle indicándole errores comunes 
que no debe cometer, etc. En suma, el «finan- 
ciero» de estas empresas incipientes suele 
ser, o al menos pasa a ser, un «amigo-conseje- 
ro» del empresario. Ambos saben que se en- 
cuentran en el mismo barco sorteando term- 
pestades. Sin embargo, normalmente los finan- 
cieros no dependen de una única empresa. 
Para ellos no es su único modo de vida, y en 
algunos casos pueden asfixiar y retrasar los 
planes de ésta, por no comprender aspectos 
técnicos o empresariales y estudiar únicamen- 
te los problemas económicos. Los financieros 
de la zona, hoy en día, tienen unas redes de 
comunicación inmejorables, y, por supuesto, 
están mecanizados con la tecnología puntera 
que financian. Por ello, no es en absoluto ren- 
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table para cualquier empresario engañar u 
ocultar algún dato a su socio inversor, ya que 
repercutiría probablemente en que nadie le 
concedería crédito a partir de ese momento. 

Sin embargo, aunque el riesgo de las in- 
versiones en investigación es enorme, tampo- 
co es tan «a ciegas» como puede parecer en 
un principio. Los créditos se otorgan siempre 
«por fases», de forma que el primer pago o cré- 
dito obtenido se entrega para comenzar a 
arrancar el proyecto. Otra fase del crédito se 
obtiene cuando va a comenzarse la produc- 
ción, una vez salvados muchos escollos, y fi- 
nalmente otras cantidades llegan al empresa- 
rio una vez que el inversor ha comprobado 
que el riesgo de perder una cantidad impor- 
tante (suma de las anteriores cantidades) es 
pequeño. Con este sistema, el problema se re- 
duce mucho, ya que sólo la primera cantidad 
se basa en la confianza, siendo las restantes 
fruto del esfuerzo del empresario. 

Siempre existen, sin embargo, determi- 
nado tipo de personas que se «niegan sistemá- 
ticamente» a recibir cualquier tipo de finan- 


¿Sabía usted que... 


¿Sabía usted que los ordenadores electróni- 
cos se han programado para todo tipo de tareas? 
Desde escribir poesía hasta cartas de amor, música 
para cuerda, etc. Un programador buscando prue- 
bas heurísticas sobre geometría clásica, probó que 
en un triángulo isósceles los ángulos de la base B y 
C son iguales siempre que los ángulos ABC y ACB 
sean congruentes. Esta anécdota no tendría interés 
alguno si no es porque el programador no conocía 
en absoluto el teorema, aunque llegó a su solución 
-unos años más tarde que Pappus, su descubridor (si- 
glo III antes de Cristo). 


PEQUEÑA HISTORIA DE LA INFORMATICA 


ciación. En la vida cotidiana, no utilizan tarje- 
tas de crédito, ni pagan jamás nada a plazos. 
Esta actitud puede ser muy loable a pequeño 
nivel (aunque tiene sus inconvenientes tam- 
bién), pero para una empresa supone que su 
crecimiento sea mucho más lento, y en estas 
empresas electrónicas e informáticas, el fac- 
tor tiempo es primordial. Al tomar este tipo de 
decisiones hay que considerar también si es 
factible, es decir, si la empresa tiene benefi- 
cios, y puede dedicarlos a autofinanciarse., Si 
es así, y los beneficios son suficientes, la de- 
cisión puede ser muy acertada, ya que los 
porcentajes que se llevan los inversores sue- 
len ser muy altos. Por el contrario, en ciertos 
períodos de crecimiento, la financiación pue- 
de ser vital, el ser o no ser de la empresa. 


Uno de los financiadores más afincados 
en el valle del Silicio es Arthur Rock, y no vino 
del pueblo de al lado. Vino de Nueva York, 
donde su padre era propietario de una paste- 
lería. Hoy es uno de los inversores de la fami- 
lia Rockefeller, una de las fortunas más gran- 
des del mundo, Arthur Rock estudió en Har- 
vard, y en 1951 comenzó a operar en Wall 
Street (naturalmente, con capital ajeno, ya que 
en esa época no disponia en absoluto de capi- 
tal propio). Poco a poco fue introduciéndose, 
participando en algunas transacciones. En 
1957, Bob Noyce y otros más que trabajaban 
con Shockley estaban buscando inversores en 
su nuevo negocio. Sus dificultades eran enor- 
mes. Arthur Rock fue el que los puso en con- 
tacto con Fairchild, que en ese momento esta- 
ba dedicado principalmente a la fotografía. A 
partir de ese momento, Rock comienza a inte- 
resarse por los negocios de tecnología punta, 
y decide mudarse a la zona más vanguardis- 
ta: California, y en concreto, la Bahía de San 
Prancisco, " 


En 1961 ya estaba asentado en la zona, 
e iba adquiriendo un cierto renombre de:que 
las personas en las que invertía tenían éxito 
en sus empresas. Era verdad. Arthur Rock no 
estudiaba el proyecto cuidadosamente, Ade- 
más, en sus principios tampoco disponía de 
asesores que pudieran explicarle las posibili- 
dades. No era necesario saber tecnología, era 
más importante seleccionar adecuadamente 
los hombres que iban a sacar adelante el plan. 
Esos hombres debían ser trabajadores empe- 
dernidos, estar entusiasmados con sus ideas, 
y como antes hemos explicado, ser honrados, 
Honrados al valorar sus posibilidades con hon- 
radez, no sobredimensionándolas, y siendo 
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flexibles para reconocer los errores y subsa- 
narlos. La soberbia rara vez lleva al éxito, y, 
desde luego, hace el aprendizaje mucho más 
lento, 

Los financieros que se atreven a apoyar 
este tipo de negocios son, desde luego, hom- 
bres convencidos de la necesidad de investi- 
gar, mejorar, innovar. Los riesgos son enor- 
mes, y además de tener dinero, es necesario 
tener vocación. Esa vocación es la que les ani- 
ma a ayudar en otras labores de asesoramien- 
to a sus «financiados». Además, muchos de 
ellos dedican sumas a investigación de forma 
gratuita, destinando fondos a las Universida- 
des, a las que están ligadas, en cierto modo, 
las empresas a las que financian. Estos fondos 
permiten subir el nivel de investigación y el 
prestigio de las Universidades, 

Desde principios de siglo han ido apa- 
reciendo en la zona sociedades inversoras, 
cuyo trabajo consiste en reunir capital de dis- 
tintas fuentes para invertirlo. Algunas han ido 
adquiriendo solera y prestigio, e incluso tie- 
nen publicaciones de importancia nacional. 
Entre las más conocidas está la American Re- 
search and Development Corp., fundada por 
un general después de la Segunda Guerra 
Mundial. Otras son la Alex y Brown, Roths- 
child, Utenberg Townbin, ambas de la otra ' 
costa, aunque dedicadas a este tipo de inver- 
siones, la Robertson Colman and Stephens y la 
Hambrecht and Quist, las dos de San Fran- 
Cisco, 


¿Sabía usted que... 


¿Sabía que a mediados de los años sesenta, 
próximas las elecciones presidenciales en las que se 
presentaba Barry Goldwater frente a Johnson, se «fa- 
bricó» la máquina Goldwater, que emulaba las res- 
puestas de ese candidato? El ordenador había sido 
programado para que respondiera a preguntas so- 
bre la coyuntura del momento, hacía proposiones so- 
bre las disposiciones gubernamentales, predecía 
«futuribles», etc. Pero eran los años sesenta. La inte- 
ligencia artificial no estaba tan desarrollada como en 
nuestros días, las máquinas eran menos potentes, 
etcétera. El caso es que la máquina maravillosa pre- 
dijo que Fidel Castro «edificaría un muro de Berlín». 
Como vemos, todavía la informática necesitaba un. 
desarrollo importante para que las respuestas obte- 
nidas de la máquina, aunque excéntricas, al menos 
no fueran ridículas. 


TEMAS MONOGRAFICOS DE VANGUARDIA "——= 


SMALLTALK COMO 
PARADIGMA DE LOS 
LENGUAJES ORIENTADOS 

| AL OBJETO* 


A programación orientada 
al objeto se ha desarrollado 
de la mano del lenguaje 
Smalltalk: los conceptos bá- 
sicos de este tipo de progra- 
mación fueron utilizados por 
primera vez para describir 
el Smalltak, cuando se des- 
arrolló dicho lenguaje y su entorno de pro- 
gramación en el Centro PARC de la XEROX. 

Por ello, y a modo de ejemplo de los len- 
guajes orientados al objeto, presentamos el 
lenguaje Smalltalk. 

El Smalltalk utiliza un pequeño número 
de conceptos, poco constreñidos por conven- 
ciones o términos, al estilo de otros lenguajes 
de programación, pero muy poderosos. Un 
procedimiento o subrutina de Smalltalk se lla- 
ma método. Los nombres de variable en 
Smalltalk son muy descriptivos, y, por tanto, 
muy largos. Siguiendo la tradición de Small- 
talk, utilizaremos las mayúsculas como separa- 
dores visuales, en lugar de utilizar guiones (es 
decir, se suele escribir CaiculaFrecuencia en 
vez de Calcula-Frecuencias). Los diseñadores 
del lenguaje Smalltalk utilizaron un formato 
para los nombres de procedimiento que ani- 
ma al programador a describir cada uno de 
los argumentos. La idea es indicar algo más 
que el orden de los argumentos, para ayudar 
al programador a recordar cuál es cuál. Cada 
parte del nombre de un procedimiento termi- 
na por un punto, y va seguido por el argumen- 
to que describe. 

Por ejemplo, en el programa de las 
«Torres de Hanoi» (que se presenta más ade- 
lante), las cuatro palabras que terminan por 
puntos, en la primera línea del programa, son 
la cuatro partes del nombre del método que 


* Como conclusión del tema, aparecido anterior- 
mente en los «Lenguajes orientados al objeto», se descri- 
be en este tomo el Smalltalk. 
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está definiéndose. Para referirse al método, 
junte todas las partes del nombre y refiérase 
a él como movetower:from:to:using: En'este 
caso hemos utilizado un método con cuatro ar- 
gumentos. Este método llama a tres métodos 
(él mismo se llama dos veces). 

Digamos otra vez lo que es un objeto en 
Smalltalk, Un objeto es un paquete de datos y 
procedimientos que se pertenecen uno al otro. 
Específicamente, todas las constantes y los 
contenidos de todas las variables son objetos. 
Un objeto en Smaliltalk es como un registro en 
Pascal, pero mucho más rico y versátil. Los 
únicos elementos que no denotan objetos son 
los selectores de mensajes (operadores o nom- 
bres de procedimiento), los comentarios, y 
unos pocos caracteres de puntuación. 

Los diferentes sistemas existentes fun- 
cionan de muchas formas: llamando a los pro- 
cedimientos, aplicando los operadores a los 
operandos, y, en ciertos casos, ejecutando blo- 
ques de un modo condicional. Sin embargo, el 
Smalltalk sólo tiene una forma de realizar su 
tarea, y ésta es «enviando mensajes» a los ob- 
jetos. Un «mensaje», es un selector de mensa- 
jes con sus operandos. El objeto que recibe el 
mensaje, el receptor, aparece justo a la iz- 
quierda del mensaje. El Smalltalk siempre de- 
vuelve un valor como resultado de cada mé- 
todo, y como era de esperar, el resultado tam- 
bién es un objeto. Los nombres objeto y méto- 
do vienen de la respuesta que dio uno de sus 
creadores a la pregunta ¿Cómo seleccionare- 
mos el método por el cual un objeto responde- 
rá al mensaje? La respuesta que dio es «Utili- 
ce el selector para encontrar el método ade- 
cuado que va a ejecutar». 


Por ejemplo, la frase «altura > 0» redac- 
tada en Smalltalk se escribiría no corno «altu- 
ra mayor que cero», sino como «El objeto altu- 
ra recibe el mensaje «más alto que» con el ar- 
gumento cero». 


TEMAS MONOGRAFICOS DE VANGUARDIA 


Cuando un objeto recibe un mensaje, 
busca el nombre del mensaje para ver si lo 
comprende, Si lo encuentra, comienza a.eje- 
cutar el método que le indica cómo responder 
al mensaje. 

Del mismo modo que un procedimiento 
en Pascal puede llamar a otros procedimien- 
tos, un método puede requerir llamar a otros 
métodos. La forma de arrancar otro método es 
enviar un mensaje al objeto. En ocasiones pue- 
de que usted desee enviar un mensaje al mis- 
mo objeto que recibió el mensaje en ese mo- 
mento. ¿Cómo se llamará localmente a ese ob- 
jeto? En otras palabras, cuando un objeto en 
Smalltalk habla consigo mismo, ¿cómo se lla- 
ma? Por supuesto, «self» (él mismo). Los men- 
sajes a self son muy corrientes. Cuando una 
parte de programa envía un mensaje al mis- 
mo selector que el método que se está ejecu- 
tando en este momento, el programa está uti- 
lizando recursión. 

La especificación de un objeto, el envío 
de un mensaje y la obtención de otro como re- 
sultado son las únicas cosas que pasan en un 
programa escrito en Smalltalk. El control de 
estructura y los operadores aritméticos son 
simplemente mensajes enviados. El resultado 
de un mensaje se puede utilizar como objeto 
que recibe otro mensaje o como argumento en 
otro mensaje. 


Los entornos de programación en 
Smalltalk intentan proporcionar todas las 
herramientas necesarias para buscar, ver, es- 
cribir y ejecutar los métodos de Smalltalk. El 
sistema nos puede decir que un pedazo de 
texto en particular es un método, por la venta- 
na en la que está escrito. Así, no es necesaria 
una puntuación especial para marcar el co- 
mienzo o el final en un método de Smalltalk. 

+ En los sistemas de programación tradi- 
cionales, los nuevos programas se crean 
uniéndolos a otros programas a través del sis- 
tema operativo. En Smalltalk, por el contrario, 
cada programa es una pieza del sistema com- 
pleto, y todas las piezas están unidas. 


El overhead (exceso de trabajo creado) 
de llamar a un procedimiento de Smalltalk es 
pequeño, tanto para el sistema como para el 
programador. El sistema tiene unas once lla- 
madas de procedimiento optimizadas porque 
ocurren con una enorme frecuencia (típica- 
mente de diez a cincuenta veces por cada pro- 
cedimiento). El overhead para un programa- 
dor cuando crea un nuevo procedimiento de 
Smalltalk es también pequeño. Las declaracio- 
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nes y preámbulos son muy cortos en el siste- 
ma Smalltalk-80, y se puede editar, ejecutar y 
depurar sin cambiar los entornos. En Smalltalk 
compilar un método y unirlo (linkarlo) dentro 
del sistema sólo toma unos pocos segundos, en 
contraposición a los procesos batch que con- 
sumen varios minutos, ya que se necesita re- 
compilar muchos módulos, La escritura de un 
nuevo procedimiento y la llamada desde el 
programa original es más fácil en Smalltalk 
que en Pascal. De este modo, los programado- 
res se ven animados a crear módulos de códi- 
go nuevos cada vez hay una necesidad nueva. 

Para ver la ventaja de programar en 
Smalltalk, incluimos un programa que calcula 
el número de veces que aparece cada carác- 
ter alfabético en una línea de texto que facili- 
ta el usuario, Se dan tres versiones: un progra- 
ma en PASCAL, su «transcripción» en Small- 
talk (véase cómo pueden ser muy parecidos) 
y una versión optimizada en Smalltalk. 


const 
tamaño = 80; 
var 
s: string [tamaño]; 
i: integer; 
Cuchar Tr 
f: array[1..26] 
of integer; 
k: integer; 
begin 
writeln(“introduzca el texto”); 
readin(s); 


for i:= 1 to 26 do 
£[i] := 0; 
for i:= 1 to tamaño do 


begin 
cs 


asLowerCase(s[i]); 
if isLetter(c) then 
begin 
k :=ord(c) 
ord('a”) 
+ l; 
f[k] := f[k] +1 
end 
end; 
for i:= 1 to 26 do 
write(f[i],*”) 
end 


A. Programa en Pascal 


Iscfkl 


f := Array new: 26. 


s := Prompter 
prompt: “introduzca el texto' 
default: *. 

1 to: 26 do: [ :i | 
f at: i put: 0]. 

1 to: s size do: [ :i 


c:= (s at: i) asLowerCase. 


c isLetter 
ifTrue: [ 
k := c asciiValue 
-$a asciiValue 
+1, 
f at: k put: (fat: k) + 1 
] 


B. Transcripción en Smalltalk. 


Isfl 

s := Prompter prompt: “introduzca el texto' default:”. 

f := Bag new 

s do: [ :c | cisLetter ifTrue: [f add: c asLowerCase]]. 


C. Versión Smalltalk optimizada. 


Fig. 1. A, B y C.—Programa que calcula el número de veces que 
aparece un carácter en una línea de texto facilitada por el usua- 
rio. 


Por último, incluimos las versiones en 


program hanoi(input, output); 
var total : integer; 
procedure movetower (Height, Frompin, 
Topin, Usingpin : integer); 
procedure movedisk ( Frompin, 
Topin : integer); 


begin 
writeln( Frompin, >”, Topin) 
end, | movedisk | 
begin | movetower | 
inf Height > 0 then 
begin 
movetower(Height-1, Frompin, 
Usingpin, Topin); 
modevisk( Frompin, Topin); 
movetower (Height-1, Usingpin, 
Topin, Frompin) 


end 
end; | movetower | 
begin | hanoi | 
read(total); 
movetower(tota,1,3,2) 
end. | hanoi | 


Versión en Pascal. 


moveTower: height from: fromPin to: toPin 
using: usingPin 
(height > 0) ifTrue: [ 
self moveTower:(height - 1) from: 
fromPin to: usingPin using: toPin. 
self moveDisk: fromPin to: toPin. 
self moveTower: (height - 1) from: 
usingPin to: toPin using: fromPin] 


Versión en Smalltalk que utiliza el si- 


guiente procedimiento: 


moveDisk: fromPin to: toPin 
Transcript cr. 


Transcript show: (fromPin 
printString, *->”, toPin printString). 


Pascal Y Smalltalk de otro conocido problema: Fig. 2.—Dos versiones del conocido programa las «Torres de 
las Torres de Hanoi. Hanoi». 
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Los ordenadores y la física 
de las partículas 


La Física de Alta Energía es una rama 
de la ciencia cuyas raíces llegan hasta los ex- 
perimentos de Cockroft y Walton. En 1932, 
Cockcroft y su equipo utilizaron un rayo de 
protones acelerados para dividir el núcleo del 
litio en dos núcleos de helio. De este modo 
quedó demostrado que los núcleos atómicos 
eran divisibles. Desde aquellos días, en los 
que los cálculos de los resultados experimen- 
tales se podían llevar a cabo mediante reglas 
de cálculo, el desarrollo del equipo experi- 
mental ha sido realmente impensable. Este de- 
sarrollo, naturalmente ha sido parejo al pro- 
greso experimentado en las técnicas de com- 
putación, empleadas en la evaluación de los 
datos experimentales, y ha ido creciendo pa- 
ralelamente con él, El impacto de los ordena- 
dores en todas las áreas de la física experi- 
mental de alta energía, ha sido trascendental 
para esta Ciencia. 

Este campo de experimentación com- 
parte una característica común con los orde- 
nadores: su dependencia del progreso de la 
electrónica le permite incrementar enorme- 
mente sus posibilidades y llevar a la realiza- 
ción práctica otras ideas y posibilidades. Con 
el cambio de los tubos de vacío a los transis- 
tores, así como la integración, cada vez más 
acusada, los circuitos electrónicos han ido ha- 
ciéndose poco a poco más pequeños, rápidos 
y con un menor consumo de potencia. Estas 
técnicas han permitido la construcción de or- 
denadores de potencia modesta, pero también 
de grandes ordenadores de potencial inmen- 
so. Al mismo tiempo, el equipamiento de la fí- 
sica de alta energía, también basado en la mi- 
croglectrónica en estos últimos 20 años se ha 
complicado enormemente, de forma que el ta- 
maño de los aceleradores y detectores es aho- 
ra tal que los primeros no parecen tener mu- 
cho que ver con los segundos. 


Examinaremos este impacto de la utili- 
zación de los ordenadores en la investigación 
de la física de alta energía. Para comenzar, 
describiremos los dos componentes básicos 
del equipo necesario para la experimentación 
de este tipo: los aceleradores, utilizados para 
obtener los rayos de partículas necesarios 
para iniciar las interacciones a investigar, y 
los detectores experimentales que registran 
los fragmentos resultado de las colisiones de 
las partículas del rayo con algún otro objeto. 
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La dependencia del diseño y operación de es- 
tos componentes con los ordenadores es cada 
día más estrecha. 

Intentaremos dar una somera idea del 
sistema que se usa en experimentación, utili- 
zando un experimento modelo. El objetivo es 
no sólo explicar cómo la física de alta energía 
necesita la informática de forma vital para 
avanzar, sino también cómo ha influido en el 
desarrolloo de esta ciencia. 


Física de las partículas 


Veamos someramente algunos de los 
objetivos de la experimentación de la Física 
de Alta Energía. 

Desde los primeros tiempos, el hombre 
ha intentado comprender el mundo que le ro- 
deaba. En nuestra vida cotidiana, experimen- 
tamos dos aspectos de este mundo físico, la 
materia con la que está formado, y las fuerzas 
que actúan sobre esta materia. Los antiguos 
griegos consideraban que la materia estaba 
constituida por cuatro elementos básicos, el 
aire, el agua, la tierra y el fuego, y hasta la era 
de la química moderna, no existió un conoci- 
miento serio de la naturaleza de la materia. 
Las fuerzas de la naturaleza se manifestaban 
en muchos fenómenos diversos, como, por 
ejemplo, los imanes permanentes, la produc- 
ción de luz y el movimiento de los cuerpos ce- 
lestiales. 

La física de alta energía estudia la na- 
turaleza de la materia y las fuerzas que sólo 
actúan sobre ella. También se le llama Física 
de las Partículas, ya que su estudio conlleva 
una investigación sobre las partículas de ma- 
teria y las fuerzas que interactúan. El término 
de alta energía deriva de que la investigación 
suele tener que llevarse a cabo por medios se- 
mejantes a los utilizados por Cockcroft y Wal- 
ton, es decir, mediante rayos de partículas, 
Los aceleradores modernos proporcionan a 
las partículas individuales de dichos rayos 
enormes cantidades de energía, generalmen- 
te equivalentes a varios cientos de veces la 
masa en reposo de la misma partícula. 

Las partículas constituyentes de la ma- 
teria pertenecen a dos clases diferentes: ha- 
drones y leptones. Los hadrones tienen tama- 
ño y masa finitos, y están compuestos de pa- 
res O tripletes de otras partículas fundamenta- 
les, o cuares. Un ejemplo de hadrón es el pro- 
tón, constituyente del núcleo del elemento 
más sencillo de la naturaleza, el hidrógeno. 


Como todos los hadrones, el protón está for- 
mado por una combinación de dos tipos de 
cuares. Uno de ellos lleva una carga aproxi- 
mada de unos dos tercios la carga del elec- 
trón, y el otro lleva una un tercio de la carga 
de contraria. El protón lleva dos cuares del 
tipo primero y uno del segundo, de forma que 
los tres cuares juntos tienen una carga de 1 (la 
carga del electrón de la órbita del hidrógeno). 
También podemos considerar el pion, com- 
puesto por un par cuar anticuar, con carga po- 
sitiva, negativa o cero. El pion positivo consis- 
te en un cuar y la anti partícula del cuar de 
1/3, llamada anticuar. Una antipartícula es una 
partícula que tiene la misma masa que la par- 
tícula correspondiente, pero cuya carga y 
otros atributos tienen signo distinto. Así pues, 
vemos que la carga de un pión positivo es 2/3 
- (-1/3), o una unidad. Los hadrones están na- 
turalmente sujetos a fuerzas que gobiernan 
sus interacciones. 


Como todo el mundo sabe, un acelera- 
dor de partículas es un dispositivo muy com- 
plejo, y su diseño y puesta a punto son tareas 
de enorme trascendencia, Aunque el acelera- 
dor está compuesto por muchas subunidades 
que se repiten en anillo, de hecho, lleva cien- 
tos de magnetoimanes, cables, microprocesa- 
dores de control, y las fuentes de alimentación 
para los componentes activos. Por tanto, el di- 
seño y construcción de un acelerador consti- 
tuyen una tarea ingente. 


Los ordenadores pueden hacer mucho 
para ayudar a resolver la tarea, en todos los ni- 
veles. En primer lugar, pueden utilizarse para 
el propio diseño de la máquina, de cada uno 
de sus componentes. También pueden simu- 
lar el paso de partículas por el acelerador con- 
siderando en su totalidad, o por subunidades 
específicas. Se han hecho muchas aplicacio- 
nes a este respecto, desde una programación 
batch (sin colaboración alguna por parte del 
operador) hasta otro tipo de programación in- 
teractiva, que permite al diseñador colaborar 
con la máquina, para optimizar los parámetros 
de cada subunidad. Sin embargo, la experien- 
cia ha demostrado que el número de paráme- 
tros es tan grande que sobrepasa la capaci- 
dad del diseñador, Por tanto, normalmente se 
utilizan programas no interactivos escritos en 
lenguaje FORTRAN (el lenguaje de programa- 
ción mejor adaptado a las necesidades y for- 
mulaciones científicas). 


Se han aplicado técnicas de computa- 
ción con éxito en los campos siguientes: 
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1. En la optimización de los muchos ti- 
pos de electroimanes, campos y espacios en- 
tre los elementos activos, donde existen inter- 
acciones mutuas entre partículas del rayo 
que a veces suelen ignorarse. 

2. En el diseño de las propias cavida- 
des del acelerador de partículas. 

3. En la simulación de ciertos efectos 
que no tienen soluciones analíticas o matemá- 
ticas simples, especialmente ciertos tipos de 
inestabilidades que pueden desarrollarse en 
el rayo que viaja, según va afectándole la in- 
fluencia de los diversos campos. 


También se requieren otros programas 
para calcular los parámetros de cada electroi- 
mán individualmente, o para calcular el siste- 
ma de transporte que debe utilizarse para 
transferir los rayos desde un acelerador a 
otro, o bien para el cálculo del apantallamien- 
to necesario para proteger al personal de los 
efectos del rayo y de las radiaciones residua- 
les. Este tipo de programas tan específicos se 
suelen desarrollar en los Laboratorios de In- 
vestigación, por un equipo de personas versa- 
das en los experimentos, y a la vez expertos 
en programación. Sin embargo, es frecuente 
intercambiar este software a nivel mundial, 
entre los distintos laboratorios que disponen 
de aceleradores de partículas. 

A otro nivel, el ordenador se puede en- 
cargar de los diseños concretos de los distin- 
tos componentes del acelerador, creando los 
diseños de fabricación necesarios, para que 
las firmas especializadas puedan llevar a cabo 
el trabajo. También será necesario diseñar 
muchísimos circuitos, Estos últimos suelen di- 
señarse utilizando técnicas CAD-CAM. Exis- 
ten muchos programas muy interesantes de 
diseño, que aumentan la capacidad del dise- 
ñador, y producen diseños fiables. Son progra: 
mas interactivos (existe un cierto “diálogo” en- 
tre la máquina y el operador). Por ejemplo, 
este tipo de sistemas puede determinar si se 
puede mover físicamente un componente 
dado y colocarlo por ejemplo, detrás de otros 
dados, en el túnel. También se puede deter- 
minar rápidamente la posición del centro de 
gravedad de un detector voluminoso y com- 
plejo, de forma que se pueda manipular con 
seguridad (grúa, etc.). 

Los proyectos en este campo son tan 
complejos y requieren sumas de dinero tan 
considerables, que cualquier pequeña mejora 
puede suponer un ahorro de dinero muy esti- 
mable. (No olvidemos que los proyectos para 


centrales de este tipo tienen dotaciones de va- 
rios cientos de millones de dólares, para pe- 
ríodos de puesta a punto de varios años.) 

Otro elemento muy importante dentro 
del proyecto es una base de datos centraliza- 
da, a la que se pueda acceder desde los pe- 
riféricos de los distintos servicios. Después de 
un período de estudio, los diseñadores han 
comprobado que las bases de datos relaciona- 
les, incluso con ordenadores de tamaño medio, 
pueden cumplir perfectamente las necesida- 
des. Una de las más utilizadas es ORACLE, en 
un sistema VAX 11/785. Con ella se pueden 
llevar a cabo comprobaciones sobre la plani- 
ficación general, utilizando un PERT (Project 
Evaluation and Revision Technique-Tecnica 
de Evaluación y Revisión del Proceso). Tam- 
bién el ordenador puede controlar otras acti- 
vidades, como, por ejemplo, el transporte de 
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los componentes, su diseño, el cableado entre 
ellos, y el sistema general de control. Otras ta- 
reas del ordenador pueden ser el control de 
pedidos de repuestos, la generación de listas 
de componentes de los circuitos impresos, y fi- 
nalmente la documentación. Todas estas acti- 
vidades se pueden integrar en un sistema de 
base de datos, considerando además de los 
componentes, sus interrelaciones. Por ejem- 
plo, se puede generar el esquema de trabajo 
del equipo de instalación, interrogando la 
base de datos que genera el plan, y los com- 
ponentes de ésta. 

Con el tiempo, el número de procesos 
que requieren uso de la base de datos irá au- 
mentando, y con ello, también el número de 
operadores que la manejan, pudiendo llegar a 
quince o más. 


VOCABULARIO 


Escape. Cierta tecla que disponen los orde- 
nadores, cuya función es generalmente la 
vuelta a la situación anterior. 


Esclavo. Dispositivo que es controlado por 
otro, llamado generalmente "maestro" o dis- 
positivo principal. 


Escritura. En Informática, se suele designar 
con este nombre a la operación de graba- 
ción de datos en cualquier tipo de memoria 
de un ordenador, por lo que es una palabra 
muy utilizada en casi todos los lenguajes, 
manuales, etc. La operación inversa, de re- 
cuperación de los datos, se llama "lectura". 


Estado. Condición en la que se encuentra un 
sistema. A partir de ella se puede deducir 
su comportamiento a las distintas señales in- 
troducidas. Se utiliza para indicar las condi- 
ciones del ordenador, un periférico u otro 
componente cualquiera. Ceneralmente los 
ordenadores van provistos de un registro 
de estado, que controla ciertas condiciones 
especiales, como los posibles errores, y 
operaciones no permitidas. 


Estructura de datos. Conjunto de datos dis- 
puestos de una forma determinada (puede 
ser un vector de números enteros, datos en 
forma de matriz, etc.). 


Esperar (wait). Situación que puede darse 
cuando el ordenador está pendiente de que 
se realice alguna acción, externa, o interna 
(como, por ejemplo, cuando está procesan- 
do una instrucción). 


ETB (End of Transmission Block). Carác- 
ter que marca el final del bloque que se está 
transmitiendo. 


59 


Etiqueta. Conjunto de caracteres utilizados 
como dirección o referencia, para poder 
identificar un dato o un archivo. También 
puede referirse a la anotaciones realizadas 
externamente en las cubiertas de los siste- 
mas de almacenamiento, con el mismo fin 
de identificación. 


ETX (End of Text). Carácter que marca el fi- 
nal de un determinado texto. 


Exceso de tres, código de. Notación deci- 
mal expresada en código binario en la cual 
cada dígito decimal N se representa por el 
número binario N + 3, 


Exclusión (OR exclusivo). Operador lógi- 
co que tiene la propiedad de que si P y Q 
son proposiciones variables cualesquiera, P 
OR exclusivo Q es verdadero si cualquiera 
de los dos P o Q es verdadero, pero NO si lo 
son los dos; y es falso si los dos son verda- 
deros o los dos falsos. La exclusión se repre- 
senta a veces mediante la combinación de 
otros sínbolos, lógicos (P OR exclusivo Q es 
igual a Po Q y no (PYO).. : 


Exponente. En potenciación, número al cual 
debe elevarse la base del sistema de nume- 
ración que se esté utilizando. (Indica el nú- 
mero de veces que la base debe multipli- 
carse por sí misma.) 


Expresión. Conjunto de operadores y ope- 
randos. Puede ser algebraica (sen A + 
2(x+3y)) o booleana (A NAND (CUB). 

Extract. (Ver Extraer.) 


Extraer. Seleccionar uno o más elementos de 
un conjunto, según un determinado criterio 


(por ejemplo, se pueden extraer determina- 
dos dígitos de una palabra, según una ins- 
trucción o máscara). 


Facsímil. Reproducción de un documento o 
imagen a distancia, a través de líneas tele- 
fónicas u otro sistema de transmisión cual- 
quiera. 


Factorial. Operación matemática por la cual 
un número se multiplica por todos los ante- 
riores a él, El factorial de cero es 1. Natu- 
ralmente cumple determinadas reglas ma- 
temáticas. 


FE (Format Efector). Carácter de realimen- 
tación. 


Ferrita. Material que contiene óxido de 
hierro, utilizado en la construcción de de- 
terminados tipos de memoria. 


FF (Form Feed). Carácter y tecla (general- 
mente en las impresoras) que provoca un 
salto de página. 


Fiabilidad. Característica que se establece 
para indicar el escaso número de probabi- 
lidades existente para que se produzca un 
error. Puede utilizarse tanto para el hardwa- 
re como para el software. 


Fibonacci, búsqueda de. Búsqueda dicotó- 
mica por la cual en cada una de las fases, el 
conjunto original o los subconjuntos forma- 
dos se van subdividiendo sucesivamente 
por números cada vez más pequeños de las 
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Series de Fibonacci. Si el número de ele- 
mentos del conjunto no es igual al número 
de Fibonacci, el número de elementos del 
conjunto se supondrá igual al siguiente nú- 
mero de Fibonacci (por exceso). 


Fibonacci, número de. Se refiere a un en- 
tero en las Series de Fibonacci. 


Fibonacci, series de. Serie de números en- 
teros, en la cual cada entero es igual a la 
suma de los dos enteros anteriores a él en 
la serie. Formulada matemáticamente, será 
X, = X, + X, donde x, =0, Xx, = 1. 


Fichero. Conjunto de registros ordenados se- 
gún un determinado criterio. Los registros 
son las unidades del fichero. El criterio de 
organización de los registros es una carac- 
terística fundamental del fichero. Puede ser 
de acceso directo, secuencial, etc. Los re- 
gistros pueden contener muchos datos, por 
lo que los ficheros se suelen almacenar en 
memorias de masa, como unidades de dis- 
co duro o flexible, cintas, cassettes, etc. 


Fichero directo. Fichero en el que sus re- 
gistros son accesibles de forma directa (se 
puede acceder individualmente a cada re- 
gistro). Este tipo de ficheros van provistos 
de un indicador que permite identificar di- 
rectamente el registro deseado. Este indi- 
cador puede identificar un determinado 
número de pista y de sector, para la locali- 
zación del registro. (Véase Fichero secuen- 
cial.) 


